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IDENTIFICATION 
PRODUCT CODE: AC-S890A-MC 
PRODUCT NAME: CZKMGAO DM11-BA MODEM CONTRL 
PROGRAM DATE: SEPTEMBER 1981 
MAINTAINER: CSS/NPG DIAGNOSTICS 


COPYRIGHT (C) 1982 B 

AeA EQUIPMENT CORPORATION, 
MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIE Y IN ACCORDANCE WITH THE 


USION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHER 130 

MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE T 

AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 
THIS PROGRAM IS A TEST OF THE DM11-BA MODEM CONTROL MULTIPLEXER 


yg A me IS DIVIDED INTO FUNCTIONAL TEST GROUPS AS 


GROUP 0: ALL LINE SCANNER AND LINE ey ae, FUNCTIONS ARE 
CauS ese THE 54-14700 TEST 
Mey | T CONNECTORS WITH THE H317-M DISTRIBUTION PANEL ) 
GROUP 1: NGLE Une IS aay USING THE H317-M PANEL WITH H3256 
test CONNECTORS ! oes OF THE MODEM CABLES . 
GROUP 2: CONNECT=DISCONNECT TEST FOR 103A MODEMS 
GROUP 3: CONNECT=DISCONNECT TEST FOR 202C MODEMS 
2.0 REQUIREMENTS 
2.1 EQUIPMENT 
PDP-11 COMPUTER WITH AT LEAST 8K OF MEMORY 
ASR-33 TELETYPE OR EQUIVALENT 
DM11-BA 
2.1.1 FOR 8 LINE SCANNER TEST 
54-14700 TEST CONNECTOR 
2.1.2 FOR SINGLE LINE CABLE TEST 
2_CABLES CONNECTED TO DISTRIBUTION PANEL 
H3256 TEST CONNECTOR 
2.2 MEMORY 
THE PROGRAM RUNS IN 8K MEMORY 
2.3 M8640 HARDWARE JUMPERS 
HARDWARE JUMPERS W10-17 ON THE M8640 MODULE ENABLE OR 
DISABLE TRANSITTION DETECTION OF THE MODEM SIGNALS . 
THE FOLLOWING RESTRICTIONS APPLY TO THESE JUMPERS: 


TEST GROUP 0 = ASSUMES THAT ALL TRANSITTION DETECTIONS WILL NOT BE 
DISABLED ( AT LEAST 1 MUST BE ENABLED ) 


TEST GROUP 1 = IS NOT EFFECTED BY THESE JUMPERS . 


TEST GROUPS 2 @ 3 = ASSUMES THE FOLLOWING : 

(1) RING TRANSITTIONS WILL NOT BE DISABLED . 

(2) BOTH CLEAR TO SEND & CARRIER WILL NOT BE 
DISABLED TOGETHER . ( ONE DISABLE IS ALLOWED ). 





SEQ 0002 
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THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED M. py TESTS 
THE EXISTENCE OF A_ HARDWARE SWITCH REGISTER. IF FOUND A 

SOFTWARE SWITCH mt gd LOCATION (SWREG=LOC. 176) ) IS DEFAULTED TO. 
IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON "SHE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(1E) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 


1. <CR> IF NO CHANGES ARE TO BE MADE 
2. 6 DIGITS 0-7 TO at IN oo THE NEW SWITCH REGISTER 
VALUE ;LAST DIGIT FOLLOWED BY <CR>. 
3. *U 70 ALLOW REENTERING VALUE IF ERROR IS COMMITTED 
KEYING IN SWREG VALUE. 


BUILT INTO THE PROGRAM IS THE ABILITY TO ae Sikinine ae THE 


(CNTL G 

THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. 


SEQ 0003 


; 









4.0 





4.1 









4.2 
4.2.1 
4.2.1A 



















4.2.18 









4.2.1.2 








4.2.1.3 









4.2.1.4 










NOTE: 














4.2.1.5 


4.2.1.6 


NOTE: 
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LOADING AND STARTING PROCEDURE 

THE STANDARD PROCEDURE FOR LOADING BINARY TAPES IS TO BE USED. 
IF THE DIAGNOSTIC IS ON MAGNETIC MEDIA, FOLLOW INSTRUCTIONS FOR 
THE MONITOR BEING USED. THE PROGRAM AUTOSTARTS ON LOADING. 


Ahead fp. ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS IS 000200. 
RESTART ADDRESS FOR ALL TESTS IS 000200 


OPERATOR AND/OR PROGRAM ACTION 
INITIAL PROGRAM START 


WITH HARDWARE SWITCH REGISTER 
LOAD ADDRESS 000200 
IF tye! ADDRESSES ARE NOT PRESENT SET SWOO = 0 
(DEFAULT CSR = 764200 , VECTOR = 540 ) 
PRESS START 


WITHOUT HARDWARE SWITCH REGISTER 
LOAD ADDRESS 200 
PRESS START 


PROGRAM WILL TYPE: 
*“*CZKMGAO DM11~BA MODEM CONTROL"' (ONCE ONLY) 


PROGRAM WILL TYPE (WITH SWOO = 0) 
VECTOR ADDRESS~"" AND WILL WAIT FOR AN INPUT 
FROM THE TELETYPE KEYBOARD. 


TYPE A THREE DIGIT NUMBER (OCTAL) WHICH IS THE 

ADDRESS THAT THE DM11-BA WILL INTERRUPT TO, FOLLOWED By 
<RETURN>. IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL 
TYPE ''?"* AND THEN REPEAT 4.2.1.3. 


IF THE ADDRESS ENTERED IS ACCEPTIBLE TO THE PROGRAM, 
BUT IS NOT THE INTERRUPT VECTOR ADDRESS OF THE DM11-BA 
UNDER TEST, A HALT WILL OCCUR AT THAT ADDRESS+2, WHEN 
THE DM11-BA INTERRUPTS. 

TO RECOVER, PERFORM 4.2.2.1. 


THE PROGRAM WILL TYPE ‘‘CONTROL REGISTER ADDRESS-"' AND WAIT FOR 
AN INPUT FROM THE TELETYPE KEYBOARD. 


TYPE A 6 DIGIT (OCTAL_ NUMBER) WHICH is THE seene ss OF THE 
DM11-BA CONTROL REGISTER FOLLOWED BY <RET 
id AN INCORRECT ADDRESS IS TYPED, THE PROGRAM” WILL 

TYPE ‘?'' AND THEN REPEAT 4.2.1.6. 


IF THE — Fatere IS oree TieLe TO THE PROGRAM 
BUT IS A_NON~EXIST grt thet A_BUS ERROR TRAP WILL 
OCCUR WHEN THE PROGRAM AD DRESSES THE REGISTER, AND THE 
PROGRAM WILL HALT AT LOCATION 6. 

TO RECOVER, PERFORM 4.2.2.1. 









CZKMGAO_DM11-BA 


4.2.1.7 


4.2.1.8 


4.2.1.9 
4.2.2 
4.2.2.1 


4.2.2.2 


4.2.3 
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THE PROGRAM WILL TYPE 

“TEST="" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD. 
TYPE AN OCTAL NUMBER CORRESPONDING TO THE 

NUMBER OF THE TEST TO BE RUN FOLLOWED BY <RETURN>. 

IF AN ge ag U TEST rem IS TYPED THE PROGRAM WILL 
TYPE ‘*?"* AND THEN REPEAT 4.2.1.7 

THE AVAILABLE TESTS TOGETHER WITH THE NUMBER TO BE TYPED 
ARE GIVEN BELOW. 


TEST GROUP 0: 
ore LINE TESTS USING 54-14700 TEST CONNECTOR. FIRST TEST=0 


TEST 
OFF LINE TESTS USING H3256 TEST CONNECTOR AND H317-M DISTRIBUTION PANEL. 


TEST GROUP 2: 
rast TEST FOR BELL 103A MODEMS~-FIRST TEST=200 
CONNECT/DISCONNECT TEST FOR BELL 202C MODEMS-FIRST TEST=300 
THE PROGRAM WILL ENTER THE SELECTED TEST GROUP. 
PROGRAM RESTART WITH HARDWARE SWITCH REGISTER 
WITH SWOO=0 
ae ADDRESS 200 
T SWOO=1 oo PRESSING START. 
PRESS START 
PROGRAM WILL PERFORM AS DESCRIBED IN 4.2.1.3 TO 4.2.1.9. 
WITH SWOO=1 
LOAD ADDRESS 200 
SET SWOO=1 BEFORE PRESSING START 
PRESS START 
PROGRAM WILL PERFORM AS DESCRIBED IN 4.2.1.7 TO 4.2.1.9 
PROGRAM RESTART WITHOUT HARDWARE SWITCH REGISTER 


LOAD ADDRESS 200 
PRESS START 


SEQ 0005 
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5.0 
5.1 
5.1.1 


5.1.2 


5.1.3 
5.1.3.1 


5.1.3.2 


5.1.3.3 


5.1.3.4 
5.1.3.5 


OPERATING PROCEDURE 
TEST GROUP 0 8 LINE SCANNER TEST 
TEST INITIALIZATION 


NONE REQUIRED, PROGRAM TYPES '’8 LINE SCANNER TEST"’ 
AND BEGINS TEST EXECUTION. 


OPERATIONAL SWITCH SETTINGS 


SW15=1, HALT ON ERROR 

SW14=1, LOOP ON CURRENT TEST 

SW13=1, SUPPRESS ERROR TYPEOUT 
SW11=1, SUPPRESS ITERATIONS 

SW10=1, ESCAPE TO NEXT TEST ON ERROR 
WO9=1, FREEZE DATA 


PROGRAM AND/OR OPERATOR ACTION 
eo ALL SWITCHES DOWN, THE PROGRAM WILL 


RUN 
ALL TESTS IN THE SELECTED GROUP, a OS HA i TEST IS REPEATED 


TESTS HAVE BEEN COMPLETED, THE PROGRAM WILL RING THE TELETYPE 
BELL AND RESTART AT THE FIRST TEST OF THE SELECTED GROUP. 


IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE 
ERROR MESSAGE AND CONTINUE TESTING. 


ye SW15=1, PROGRAM ACTION WILL BE AS IN 5.1.3.1 EXCEPT THAT 
A HALT WILL OCCUR AFTER ERROR TYPEOUT. 


WITH SW13=1, PROGRAM ACTION WILL BE AS _IN 5.1.3.1 EXCEPT THAT 
NO ERROR TYPEOUT WILL OCCUR. THE PC OF THE TEST THAT FAILED 
WILL BE DISPLAYED IN THE COMPUTER DATA LIGHTS. 


THIS PROGRAM WILL NO LONGER TRACE TRAP WITH THIS RELEASE 
WITH SW10=1, PROGRAM ACTION WIiL BE AS _IN 5.1.3.1 EXCEPT THAT 


AFTER AN ERROR HAS OCCURED, THE PROGRAM WILL IMMEDIATELY 
START THE NEXT TEST IN SEQUENCE. 


SEQ 0006 
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TEST GROUP 1 SINGLE LINE DM11-BA CABLE AND H317-M PANEL TEST 


CZKMGA.P11 
5.2 
5.2.1 


5.2.2 


5.2.3 


5.3 
5.3.1 


TEST INITIALIZATION 


THE PROGRAM WILL TYPE Ba LINE CABLE 4 3 
LI ER-"" AND WILL WAIT FOR AN INPUT F 
THE TELETYPE KEYBOARD. 


TYPE A 1 DIGIT OCTAL NUMBER BETWEEN 0 AND 7, ee 


TO THE gg OF THE LINE TO BE TESTED, FOLLOWE 
<RETURN>. THE PROGRAM WILL THEN BEGIN y oo 
IF THE TELETYPE INPUT IS INCORRECT, THE PROGRAM 

WILL TYPE ‘'?** AND REPEAT THE MESSAGE. 
OPERATIONAL SWITCH SETTINGS 
SAME AS 5.1.2 
PROGRAM AND/OR OPERATOR ACTION 


SAME AS 5.1.3 


TEST GROUP 2 BELL 103A MODEM CONNECT=DISCONNECT TEST 
TEST INITIALIZATION 


THE PROGRAM WILL TYPE ‘103A CONNECT-DISCONNECT TEST 
th tally LINE="" AND WA!T FOR AN INPUT FROM THE TELETYPE 


TYPE THE NUMBER OF THE LINE THAT WILL ORIGINATE THE 
CALL (0-7 OCTAL) FOLLOWED BY RETURN. 


THE PROGRAM WILL TYPE ‘ANSWER LINE~"' AND WILL WAIT 
FOR AN INPUT FROM THE TELETYPE KEYBOARD. 


TYPE THE NUMBER OF THE LINE THAT WILL ANSWER THE CALL 
(0-7 OCTAL) FOLLOWED BY <RETURN>. 


THE PROGRAM WILL TYPE ‘DIAL ANSWERING DATA SET'' 
AND WILL WAIT FOR THE ORIGINATE AND ANSWERING MODEMS 
TO GENERATE INTERRUPTS. 


SEQ 0007 





























5.3.2 


5.3.2.5 
5.3.2.6 


5.5.2.7 


5.3.2.8 


5.3.3 
5.3.3.1 


5.3.3.2 
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OPERATOR ACTION TO MAKE TELEPHONE CONNECTION 

AFTER THE MESSAGE ‘DIAL ANSWERING DATA SET’ IS TYPED 
THE OPERATOR HAS APPROXIMATELY 5 MINUTES TO ESTABLISH 
A CONNECTION BETWEEN THE 2 DATA SETS. 


PLACE ANSWERING DATA _SET_IN ‘‘AUTO ANSWER'’ MODE 
PLACE ORIGINATING DATA SET IN ‘‘TALK’’ MODE 


DIAL DIAL ANSWERING DATA SET FROM ORIGINATING 
DATA SET 


LISTEN FOR TONE IN HANDSET OF ORIGINATING DATA SET. 


WHEN TONE IS HEARD, PRESS ‘DATA'’ BUTTON ON 
ORIGINATING DATA SET. 


*“DATA’’ LIGHT SHOULD ILLUMINATE 
"DATA’’ LIGHT ON ANSWERING DATA SET SHOULD BE LIT. 


THE PROGRAM WILL NOW WAIT FOR 
INTERRUPTS FROM THE DM11-BA. 


IF THE CONNECTION HAS BEEN PROPERLY ESTABLISHED, 
THE PROGRAM TYPES ''STRIKE ANY TTY KEY TO DISCONNECT’. 


WHEN A TTY KEY IS STRUCK, THE PROGRAM WILL BEGIN THE 
DISCONNECT SEQUENCE. 


WHEN THE DISCONNECT SEQUENCE rest BEEN COMPLETED 
THE PROGRAM WILL TYPE ‘‘103A T COMPLETE’', 
AND WILL REQUEST THE OPERATOR 70 SELECT NEW LINES. 


PROGRAM ACTION IN CASE OF ERROR 
RING ON INCORRECT LINE 
IF THE PROGRAM DETECTS A RING SIGNAL ON AN INCORRECT 
LINE, OR IF ANY OTHER ange 2 AES with, RING IS 
DETECTED BEFORE RING, THE PROGRAM WILL TYPE 
FATAL ERROR MESSAGE AND red THE OPERATOR 
fo RESELECT LINES AND REDIAL 
OTHER ERRORS 
IF ANY ERRORS OCCUR AFTER a3 FIRST RING HAS BEEN 
DETECTED, THE PROGRAM WILL TYPE AN APPROPRIATE ERROR 
MESSAGE AND CONTINUE TESTING TO COMPLETION. 
THE ONLY EXCEPTION TO THIS IS IF AN INTERRUPT 
OCCURS ON A LINE 


LINE NOT SEL IN WHICH 
CASE A FATAL ERROR WILL BE R EBORTED, AND THE PROGRAM 
WILL PROCEED AS DESCRIBED IN 5.3 





SEQ 0008 
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5.3.4 OPERATION SWITCH SETTINGS 


SW15=1, HALT ON ERROR 
SW13=1, SUPPRESS ERROR TYPEOUT 


5.3.5 DATA SET MODE SWITCHING 
AF TER_THE ig eg” HAS TYPED THE MESSAGE osreates” 
IN E OPERATOR 


T BEFORE SwO1 IS SET, 
MAY SWITCH EITHER DATA SET FROM THE MODE THAT 


IT IS_IN TO ANOTHER MODE. 
ALL_TRANSITIONS DETECTED AT THIS TIME WILL 
BE REPORTED. 


NOTE: pe oa kool DATA SET MUST BE RETURNED TO ‘'TALK'* MODE 
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OM BEING 
DETECTED THAT ARE CAUSED BY THE FACT THAT THE MODEM IS 
IN THE INCORRECT STATE. 


5.4 TEST GROUP 3 BELL 202C MODEM CONNECT=DISCONNECT TEST 
5.4.1 TEST INITIALIZATION 


SAME AS 5.3.1 EXCEPT PROGRAM WILL TYPE *'202C CONNECT 
DISCONNECT TEST’’. 


5.4.2 OPERATOR ACTION TO MAKE TELEPHONE CONNECTION 


SAME AS 5.3.2 EXCEPT AT END OF TEST, PROGRAM WILL TYPE 
"202C TEST COMPLETE’’. 


5.4.3 PROGRAM ACTION IN CASE OF ERRORS 


SAME AS 5.3.3 

5.4.4 OPERATIONAL SWITCH SETTINGS 
SAME AS 5.3.4 

5.4.5 DATA SET MODE SWITCHING 
SAME AS 5.3.5 


5.5 TEST RESELECTION 


TO ESCAPE FROM THE TEST IN PROGRESS, AND SELECT 
A NEW TEST, TYPE <CONTOL C>. 


THE fy oe WILL STOP EXECUTION OF THE TEST ies PROGRESS 
AND T TYPE ‘‘TEST~"* AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD. 


PROCEED AS DESCRIBED IN 4.2.1.8 
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5.6 ADDRESS CHANGE 


TO CHANGE THE VECTOR AND REGISTER ADDRESS OF THE DM11-BA 
UNDER TEST, TYPE <CONTROL V>. THE PROGRAM WIL 

STOP EXECUTION OF THE TEST IN PROGRESS AND PROCEED AS 
DESCRIBED IN SECTION 4.2.1, EXCEPT THAT 

"DMI1-BA DIAGNOSTIC’ WILL NOT BE TYPED. 


LINE NUMBER CHANGE 


TO CHANGE THE LINE NUMBER(S) UNDER TEST, TYPE 
<CONTROL L>. THE PROGRAM WILL SUSPEND THE 

TEST IN PROGRESS AND RETURN TO THE INITIALIZATION 
STAGE OF THE SELECTED TEST. 


WHEN THE LINE NUMBER(S) HAS BEEN CHANGED, THE 
PROGRAM WILL RESTART THE SELECTED TEST USING THE NEW 
LINE NUMBER(S). 


ERROR IN ENTERING DATA 


TO ALLOW RE-ENTERING DATA TYPE “U <CNTL U> BEFORE 
DEPRESSING <CR> WHEN ENTERING DATA. THIS WILL 
RESULT IN THE QUESTION BEING RE-ASKED. 


POWER FAILURE 


IF A POWER FAIL TRAP OCCURS DURING TEST EXECUTION 
THE PROGRAM WILL SAVE THE GENERAL REGISTERS OF THE 
PROCESSOR AND HALT. 


WHEN POWER UP OCCURS, THE PROGRAM WILL TYPE 
“POWER FAILURE-CURRENT TEST WILL BE RESTARTED". 


THE PROGRAM WILL THEN RESUME TEST EXECUTION. 


IF A TEST + NOT IN PROGRESS, I.E., IF THE PROGRAM 

IS WAITING FOR AN INPUT FROM THE TELETYPE KEYBOARD, 

THE ERROR MESSAGE WILL BE ‘POWER FAILURE’ 

THE PROGRAM WILL THEN REQUEST THE OPERATOR TO SELECT A TEST. 





e 
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6.0 ERRORS 
6.1 NORMAL OPERATION 
IF AN_ERROR OCCURS WITH ALL SWITCHES DOWN, THE PROGRAM 
WILL TYPE AN APPROPRIATE ERROR MESSAGE AND THEN 
RESUME TESTING. 
THERE ARE SEVERAL ERROR MESSAGE FORMATS, AND 
THE PARTICULAR MESSAGE TYPED DEPENDS UPON THE 
TEST IN PROGRESS. 
6.1.1 ERROR MESSAGES 
6.1.1.1 UNIQUE ERROR 
ONLY PC OF FAILING TEST IS OUTPUT TO TELEPRINTER 
AN EXAMPLE OF THIS TYPE OF ERROR IS: 
1. AN_INTERRUPT OCCURED AT THE WRONG PRIORITY 
2. A REGISTER BIT WAS NOT CLEARED BY RESET 
6.1.1.2 TRANSITION DETECTION ERROR 


THIS ERROR WILL OCCUR IN ONE OF THE ON-LINE TESTS 
IF AN EXPECTED INTERRUPT DOES NOT OCCUR, OR IF 

AN UNEXPECTED INTERRUPT DOES OCCUR, ON THE LINES 
UNDER TEST. 

FORMAT FOR ERROR TYPEOUT IS 


XXXXXX_ TRANSITION ERROR 
EXP REC LINE 


WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 


=EXPECTED INTERRUPT FLAGS (CORRESPONDS TO 4 MSB OF CONTROL REGISTER 


BB=RECEIVED INTERRUPT FLAGS (AS ABOVE? 
CC=LINE ON WHICH ERROR OCCURED 


SEQ 0011 
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6.1.1.3 SINGLE LINE STATUS ERROR 


6.1.1.4 


6.1.1.4 


THIS ERROR WILL OCCUR IN ANY TEST, OFF LINE OR ON-LINE 
tg 3 EXPECTED AND RECEIVED LINE STATUS ARE NOT 


FORMAT FOR SINGLE LINE STATUS ERROR IS 
XXXX LINE ERROR 

EXP REC LINE 

AAA BBB CC 


WHERE serene OF CALL _TO ERROR ROUTINE 
AAA=EXPECTED LINE STATUS AT TIME OF ERROR 
BBB=RECEIVED LINE STATUS AT TIME OF ERROR 
CC=LINE ON WHICH ERROR OCCURED 

FATAL TRANSITION ERROR 


THIS ERROR WILL OCCUR IN AN ON-LINE TEST IF AN INTERRUPT 
OCCURS ON A LINE NOT SELECTED FOR TESTING. 


FORMAT FOR FATAL ERROR TYPEOUT IS 
XXXXXX FATAL ERROR 

CSTAT LSTAT 

AAAAAA 


WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
AAAAAA 


=RECEVICED CONTROL STATUS ON LINE THAT INTERRUPTED 


BBB=RECEIVED LINE STATUS ON LINE THAT INTERRUPTED 
CONTROL STATUS ERROR 


THIS ERROR WILL OCCUR IN A TEST THAT PRIMARILY 
INVOLVES THE LINE SCANNER 


FORMAT FOR CONTROL STATUS ERROR IS 
XXXXXX STATUS ERROR 
EXP REC 


WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
AAAAAA=EXPECTED CONTROL STATUS AT TIME 


OF ERROR 
BBBBBB=RECEIVED(ACTUAL) CONTROL STATUS AT TIME OF ERROR 


SEQ 0012 
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6.1.1.5 LINE STATUS ERROR 
THIS ERROR WILL OCCUR _IN THOSE OFF LINE TESTS THAT 
SET ONE LINE TO A PARTICULAR STATE, AND THEN CHECK 
ALL OTHER LINES 
FORMAT FOR LINE STATUS ERROR IS 


XXXX LINE ERROR 
EXP REC LINE SEL 
DDD «6CCC DD 





21-0CT-81 


WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
AAA=EXPECTED LINE STATUS AT TIME OF ERROR 
BBB=RECEIVED LINE STATUS AT TIME OF ERROR 
CC=LINE ON WHICH ERROR OCCURED 
DD=THE LINE ON WHICH THE PROGRAM WAS OPERATING 


6.1.2 REPEATED ERRORS 
IF THE SAME“ERROR OCCURS REPEATEDLY IN A GIVEN TEST 
ONLY THE DATA RELATING TO THAT ERROR WILL BE TYPED 
IF THE ERROR OCCURS IN THE SAME TEST ON THE SAME PASS 
6.2 SCOPE LOOPS 
NOTE: SCOPE LOOPING APPLIES ONLY TO TEST GROUPS 0 AND 1 
6.2.1 AFTER ERROR HALT 
TO LOOP ON A GIVEN TEST AFTER AN ERROR HALT, 
SET SW15=0 TO RUN WITHOUT STOPPING 
SET SW14=1 TO LOOP ON CURRENT TEST 
SET SwW13=1 TO SUPPRESS ERROR TYPEOUT 
SET SW10=0 (IF IT IS 1) 
SET SWO9=1 TO LOOP ON SAME DATA (IF REQUIRED) 


PRESS CONTINUE 
THE PROGRAM WILL LOOP ON THE SAME TEST. 


6.2.2 FROM PROGRAM START 
6.2.2.1 PROCEED AS DESCRIBED IN 4.2.1.1 TO 4.2.1.4 


6.2.2.2 WHEN THE PROGRAM TYPES ‘'TEST-"', SET SwW14=1 TO LOOP 
ON THE TEST THAT WILL BE SELECTED. 


6.2.2.3 TYPE IN THE NUMBER OF THE TEST THAT IS TO BE LOOPED 
ON (SEE LISTING FOR TEST NUMBER REFERENCE DESIGNATIONS) 


6.2.2.4 Fe tame WILL LOOP ON THE SELECTED TEST UNTIL 


6.2.3 AFTER st 
SAME AS 6.2.2.2 T0 6.2.2.4 


SEQ 0013 
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7.0 


7.1 


7.2 


Tos 


7.4 
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RESTRICTIONS 


STARTING 
FOR 8 LINE SCANNER TEST OR SINGLE LINE TEST 


THE 54-14700 TEST CONNECTORS MUST BE_INSTALLED ON THE M8640 
MODULE OR WHEN CONNECTTED TO THE H317-M DISTRIBUTION 

PANEL H3256 TEST CONNECTORS SHOULD BE INSTALLED 

IN PLACE OF THE MODEM CABLES. 


OPERATING 
NONE . 


WHEN ON ACT=-11 OR ‘‘XOR' 

PROGRAM WILL DEFAULT to 8 LINE SCANNER TEST 
54-14700 TEST CONNECTOR MUST BE INSTALLED 
(OR H317-M WITH H3256 TEST CONNECTORS). 


DEFAULT PARAMETERS (INCLUDING ACT-11 & ‘'XOR'’) 
VECTORS 


DMBVEC: 540 (AUTOMATICALLY GENERATED 
DMBLVL: 542 BY PROGRAM WHEN UNDER ACT=11 OR ‘‘XOR"’) 
ADDRESSES 


DMBCSR: 164200 
DMBLSR: 164202 


NOTE: SWOO(RESELECT ADDRESSES AND yECT ORS BECOMES 
INOPERATIVE UNDER ACT=11 OR "‘XOR 


SEQ 0014 
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8.0 


8.1 


8.2 


8.3 


8.4 
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EXECUTION TIME 


16 LINE SCANNER TEST 


THE TIME FOR 2 PASSES OF THE 16 LINE SCANNER TEST IS 
APPROXIMATELY 1.5 MINUTES. 


SINGLE LINE CABLE TEST 


THE TIME FOR 12 ate OF THE SINGLE LINE CABLE TEST 
IS APPROXIMATELY 1 MINUTE. 


103A MODEM CONNECT=DISCONNECT TEST 


Gree tnat fe 30 SECONDS WILL ELAPSE BETWEEN THE 
TIME THAT THE ANSWERING DATA SET FIRST DETECTS A RING 
SIGNAL M0 3 TIME THAT THE PROGRAM TYPES 

"SET SWO1=1 TO DISCONNECT’. 


APPROXIMATELY 30 SECONDS WILL ELAPSE te A THE TIME 
THAT THE PROGRAM TYPES THE ABOVE MESSAGE UNTIL THE 
TIME THAT THE PROGRAM TYPES "103A TEST COMPLETE" 


202C MODEM CONNECT=DISCONNECT TEST 


APPROXIMATELY 1.5 MINUTES WILL _ELAPSE BETWEEN THE TIME 
THAT THE ANSWERING DATA SET DETECTS THE FIRST RING SIGNA 
TO THE TIME THAT THE PROGRAM TYPES ''SET SwO01=1 TO DISCONNECT". 


APPROXIMATELY 30 SECONDS WILL ELAPSE BETWEEN THE 
TIME THAT THE PROGRAM TYPES THE ABOVE MESSAGE UNTIL 
THE PROGRAM TYPES ‘'202C TEST COMPLETE’. 


— 


SEQ 0015 
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CZKMGA.P11 


9.0 


20-OCT-81 17:09 


PROGRAM DESCRIPTION 


THIS PROGRAM CONSISTS OF A SERIES OF TEST GROUPS 
ae A SET OF COMMON SERVICE ROUTINES AND A KEYBOARD 


WHEN INITIALLY LOADED AND STARTED _...SWOO MUST BE SET =0, THE PROGRAM WILL 
BEGIN A DIALOG WITH THE OPERATOR TO INPUT THE PARAMETERS 
REQUIRED BY THE PROGRAM. 


WHEN ALL_INFORMATION HAS BEEN INPUTTED, * PROGRAM WILL 
REQUEST THE OPERATOR TO SELECT A TEST BY TYPING 

THE NUMBER OF THE TEST TO BE RUN. WHEN A oy TEST NUMBER 
13 Betes vee. THE PROGRAM WILL BEGIN EXECUTION OF THE 


AT ANY TIME DURING TEST EXECUTION, THE OPERATOR MAY 
CHANGE A TEST PARAMETER BY ENTERING THE APPROPRIATE 
COMMAND VIA THE TELETYPE KEYBOARD. 


IF AN OFF LINE TEST HAS BEEN SELECTED, THAT TEST WILL 
BE REPEATED UNTIL THE OPERATOR INTERVENES. 


IF AN ON LINE TEST HAS BEEN SELECTED, THE OPERATOR IS 
REQUIRED TO TAKE ACTION EACH TIME THE TEST IS COMPLETED. 


AT THE END OF EVERY OFF LINE TEST PASS, THE PROGRAM 
WILL RING THE TELETYPE BELL. 


ng END OF AN ON LINE TEST, A TEST COMPLETE MESSAGE WILL BE 


aie LISTING 





SEQ 0016 
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710 LIST SEQ,BIN,LOC 
711 TITLE C2KMGAO DM11-BA MODEM CONTRL 
712 “ENABLE et AMA 
713 :DM11-BA DIAGNOSTIC 
714 STHIS PROGRAM CONTAINS TEST OF THE DM11-BA IN 
ab, [THE OFF LINE MODE OF OPERATION ONLY 
at ;SWITCH REGISTER OPTIONS 
719 
720 :$W15=1, HALT ON ERROR 
721 :SW14=1. LOOP ON CURRENT TEST 
722 :SW13=1. SUPPRESS ERROR TYPEOUT 
723 [SW11=1, SUPPRESS ITERATIONS 
724 'SW10=1. ESCAPE TO NEXT TEST ON ERROR 
725 *SWO9=1, FREEZE DATA 
726 'SWO1=1. START DISCONNECT SEQUENCE 
727 :SWOO=0, RESELECT VECTOR AND CONTROL REGISTER ADDRESS 
728 sAFTER PROGRAM RESTART 
730 ;STARTING ADDRESS FOR ALL TESTS IS 000200 
3 SRESTART ADDRESS=000200 
738 : TESTS AVAILABLE 
735 :TEST GROUP 0- 
736 OFF LINE TESTS USING H861 TEST CONNECTOR-FIRST TEST=0 
737 ST GROUP 1- 
038 : FF LINE TESTS USING DC11 TEST CONNECTOR AND MODEM CABLE-FIRST TEST=100 
240 :COMNECT/D1SCONNECT TEST FOR BELL 103A MODEMS-FIRST TEST=200 
p42 «CONNECT SDI SCONNECT TEST FOR BELL 202C MODEMS-FIRST TEST=300 
oe :SYMBOL DEFINITIONS 
746 100000 $W15=100000 
747 040000 $W14=40000 
748 020000 SW13=20000 
749 010000 $W12=10000 
750 0 SwW11=4000 
751 002000 SW10=2000 
752 001000 Sw09=1000 
753 000400 Sw08=400 
034 000100 5W06=100 
756 .NLIST MC,MD,CND 
757 “LIST ME 
758 
759 
760 
761 
16¢ ;REGISTER DEFINITIONS 
764 000000 RO=%0 :GENERAL REGISTER 
765 000001 R1=%1 SGENERAL REGISTER 
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¢ R2=% GENERAL REGISTER 

767 00000 R3=% GENERAL REGISTER 

000004 R4=24 GENERAL REGISTER 
769 000005 R5=%5 : GENERAL REGISTER 
770 000006 SP=%6 PROCESSOR STACK POINTER 
aa 000007 PC=%7 ;PROGRAM COUNTER 
ve LOCATION EQUIVALENCIES 
775 177776 PS=177776 
776 -EQUIV. PS,PSW 
777 014660 RADIX=DIVIS CONVERSION FACTOR FOR DECIMAL OUTPUT 
778 014654 BINWRD=DIVIDL  ;WORD TO BE CONVERTED TO OCTAL ASCII 
444 014656 DIGIT=DIVIDH ASCII OCTAL DIGIT 
4h sCONTROL STATUS REGISTER BIT FUNCTIONS 
783 000020 BUSY=20 sLINE SCANNER RUNNING 
784 000040 SCNENA=40 oi. SCANNER ENABLE 
785 000100 INTENA=100 s INTERRUPT ENABLE 
786 000200 DONE=200 ER DONE 
787 000400 STEP=400 CAUSES LINE COUNTER TO BE INCREMENTED BY 1 COUNT 
788 001000 MAINT=1000 FORCES 1S TO INPUT OF SCRATCH PAD MEMORY 
789 002000 CLRMUX=2000 CLEAR MULTIPLEXER FUNCTION FLIPFLOPS 
790 004000 CLRSCN=4000 CLEARS SCANNER SCRATCHPAD MEMORY 
791 010000 SECRXF=10000 SSECONDARY RECEIVE TRANSITION WAS DETECTED rH SCANNER 
792 020000 CSF=20000 sCLEAR TO SEND TRANSITION WAS DETECTED BY SCANNER 
793 040000 COF =40000 :CARRIER TRANSITION WAS DETECTED BY S SCANNER 
ees 100000 RINGF=100000 RING SIGNAL WAS DETECTED BY SCANNER 
a LINE REGISTER BIT FUNCTIONS 
798 000001 LINENA=1 3=1, RECOGNIZE TRANSITIONS ON THIS LINE 
799 000002 TRMRDY=2 :=1, SEND TERMINAL READY TO MODEM 

000004 = 3=1, SEND REQUEST TO SEND TO MODEM 
801 000010 SECTX=10 2=1, SE ARY T IT T DEM 
802 000020 SECRX=20 3=1, SECONDARY RECEIVE TURNED ON BY MODEM 
803 000040 ae :=1, CLEAR TO SEND TURNED ON MODE 
804 000100 CO=100 z=1, CARRIE D ON B 
aoe 000200 RING=200 3=1, RING TURNED ON BY MODEM 
pth SOFTWARE TRANSITION FLAGS 
809 000004 XCO=4 Fan eee thee WAS DETECTED 
810 000002 XCS=2 SCLEAR TO SEND TRANSITION WAS DETECTED 
a1) 000001 XSCRX=1 ;SECONDARY RECEIVE TRANSITION WAS DETECTED 
B12 2 INSTRUCTION DEFINITIONS 
815 005746 PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
816 005726 POP1SP=5726 : INCREMENT PROCESSOR STACK 1 WORD 
817 1004 PUSHRO=10046 3SAVE RO ON STACK 
818 012600 Srestbepett 0 sRESTORE RO FROM STACK 
819 024646 PUSH2SP=2 “30° SDECREMENT STACK TWICE 
ase 022626 POP2SP=226 INCREMENT STACK TWICE 


CZKMGAO_DM11-BA MODEM CONTR 
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104000 
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MACY11 30A(1052) 


21-0CT-81 


sEMT DEFINITION TABLE 


ERRORC=EMT +X 


KBD IN=EMT +X 
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SEQ 0019 


CONTROL STATUS ERROR SERVICE 
3LINE STATUS Pony SERVICE 
PE a la SERVICE 


i TELETYPE OUTPUT 
AVE RO-R5, PC+2 OF CALL 
‘CONVERT DATA TO ASCII AND TYPE 
SRESTORE RO-R 
TASCII CONVERSION ROUTINE 
!DIGIT EXTRACTION ROUTINE 
[TYPE PC OF FAILING TESTS ONLY 
: INPUT OCTAL DATA STRING 


:SET UP ON LINE TEST 

; CHECK FOR RING” ON CORRERT LINE 
T FOR TRANSITIONS 

CHECK TRANSITIONS 

:DELAY FOR TRANSIENTS 

CHANGE SWREG ROUTINE 


;CHECK FOR INTERRUPTS-FLAG STYLE 
FAKE INTERRUPT ENTRY POINT 


;TRAPCATCAER FOR ILLEGAL INTERRUPTS 


CZKMGAO_DM11-BA MODEM CONTRI 
CZKMGA.P11 9 


000174 
000176 


000200 


20-OCT-81 17: 


000174 
000000 
000000 


000200 
000137 001100 


MACY11 30A(1052) 


.=174 


-=200 


21-0CT-81 


STANDARD INT 
EOL 

EMTSRV 

340 

KBDINT 

340 
DISPREG:0 
SWREG: 0 


JMP START 
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ERRUPT VECTORS 
:POWER FAIL HANDLER 
AT LEVEL 
SEMT DISPATCH SERVICE 
sSERVICE AT LEVEL 7 


KEYBOARD MONITOR 
SERVICE AT LEVEL 7 


:GO TO START OF PROGRAM 


s 


SEQ 0020 
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CZKMGA.P11 20-0CT-81 
875 
876 001100 
877 001100 
are 001100 012737 
880 001106 005037 
881 001112 005077 
882 001116 012706 
883 001122 013746 
884 001126 013746 
885 001132 012737 
886 001140 022777 
887 001146 001402 
888 001150 000407 
889 001152 022626 
890 001154 012737 
891 001162 012737 
892 001170 012637 
893 001174 012637 
894 001200 005037 
895 001204 013746 
896 001210 012737 
897 001216 5737 
898 001222 012637 
899 001226 005137 
900 001232 004737 
901 001236 000137 
902 001242 000000 
903 001244 000000 
904 001246 022626 
905 001250 012637 
906 001254 005737 
907 001260 001005 
908 001262 104004 
909 001264 016645 
910 001266 012737 
911 001274 005737 
912 001300 100417 
913 001302 005737 
914 001306 001403 
915 001310 004737 
916 001314 000411 
917 001316 022737 
918 Oot Se 001001 
919 001326 104025 
920 001330 032777 
921 001336 001103 
922 001340 012706 
923 001344 012737 
924 001352 012737 
925 001360 013777 
358 001366 005077 
928 001372 062737 
929 001400 $53 
930 001406 023727 


ONTRL 
17:09 


015346 
001730 


001152 
177777 


000176 


001254 


000004 
016060 


000001 
001242 


000042 
015470 
000176 


000001 
001100 


011704 


000004 
013274 


MACY11 30A(1052) 


000024 


000004 


016960 


015770 


-=1100 
STACK: 
START: 


SUSWR: 


XFLAG: 
Fore 
XORSVC: 
STARTO: 


START1: 


1$: 
VECSTR: 


VECSTA: 


21-0CT-81 
MOV #PFAIL,24 
CLR TIPFLG 
CLR aTKCSR 
MOV #STACK,SP 
MOV a¥6,-(SP) 
MOV a#4,-(SP) 
MOV 1$, aK 
CMP #-1,aSWR 
BEQ 
BR 3$ 
CMP (SP)+,(SP)+ 
MOV ASWREG, SWR 
MOV #DISPREG, DISPLAY 
MOV (SP) +, aM 
MOV (SP) +, a#6 
CLR XFLAG. ;XOR 
MOV 4,-(SP) :SAV 
MOV #XORSVC 
TST 177060 
MOV (SP)+, 
COM XFLAG 
JSR C,X0 
MP STARTO 
0 
POP2SP 
MOV (SP)+,4 ;RESTORE 4 
TST TIFLG 
BNE +14 
TYPE 
MTITLE 
MOV #1, TIFLG 
TST XFLAG 
BMI VECSTR 
TST 42 
BEQ START1 
JSR PC,XOR 
BR VECSTR 
CMP WSWREG, SWR 
BNE 
CNTLUU 
BIT #1,aSWR 
BNE ARTN 
MOY WSTACK,SP 
MOV #300, DATA1 
MOV #302.DATA2 
MOV DATA2, aDATA 
CLR DATA2 
ADD #4,DATAI 
ADD #4, DATA2 
CMP DATA1,#1000 


4 : 
:G01 AN KOR 
:XOR = YES 


7 4 
SEQ 0021 
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SET _UP POWER FAIL 
: INTERRUPT SERVICE VECTOR 
CLEAR TEST IN PROGRESS FLAG 


SET _UP STACK POINTER 
:SAVE VECTORS 


SET _UP FOR TIMEOUT 
REFERENCE HARDWARE SWITCH REGISTER 


sADJUST STACK 

sPOINT TO SOFTWARE SWITCH REG 
sPOINT TO SOFT DISPLAY REG 

RESTORE VECTORS 


SET _UP_ SVC ROUTINE 
TESTER OUT THERE ? 


sAUTO VECTOR 
RESTORE TRAPCATCHER 
:XOR FLAG 


:TYPED TITLE? 

[TYPE 'DM11-BA DIAGNOSTIC’ 
:SET TITLE TYPED FLAG 

*X OR ? 


SRESTORE TRAPCATCHER 
ZACT 11? 


[YES AUTO VECTOR 
:GET VECTOR AND REGISTER ADDRESS 


SET UP PROCESSOR STACK POINTER 
sADDRESS OF FIRST FLOATING VECTOR 
sADDRESS OF STATUS WOR 

MOVE ADDRESS OF STATUS WORD TO VECTOR 
:CLEAR STATUS WOR 

3 (FOR HALT ON ILLEGAL INTERRUPT) 

:NEXT VECTOR 

NEXT STATUS WORD 

21S TABLE CLEARED 
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931 001414 001361 BNE VECSTA :IF NOT, CONTINUE 
932 001416 005737 001242 TST XFLAG :XOR ? 
933 001422 100516 BMI TSTGO 7YES 
934 001424 005737 000042 TST 42 sACT 11 ? 
935 001430 001113 BNE TSTGO 7 YES 
936 001432 104013 INSTRG :GET yecree ADDRESS ” 
937 001434 017422 MVECTOR ;MESSAGE ‘VECTOR ADDRESS- 
938 001436 000100 100 SLOWER Stim FOR ADDRESS 
939 001440 000774 774 UPPER LIMIT FOR ADDRESS 
940 001442 015750 DMBVEC STORAGE FOR ADDRESS 
941 001444 032737 000003 015750 1$: BIT #3, DMBVEC sTEST 2 LSB OF ADDRESS 
942 001452 001404 BEQ VECST1 :IF 0, CONTINUE 
943 001454 012716 001444 MOV #1$, (SP) 
944 001460 000137 015176 JMP INSTER : INCORRECT ADDRESS, TRY AGAIN 
945 001464 0135737 015750 015752 VECST1: MOV oe bret — 7GENERATE ADDRESS OF 
946 001472 062737 000002 015752 ADD #2,DMB INTERRUPT STATUS WORD 
947 001500 104013 INSTRG GET ADDRESS OF CONTROL REGISTER 
948 001502 017444 MRE GAD MESSAGE "REGISTER ADDRESS~' 
949 001504 160000 160000 ;LOWER LIMIT FOR ADDRESS 
950 001506 176000 176000 ; UPPER LIMIT FOR ADDRESS 
951 001510 015754 DMBCSR ORAGE FOR ADDRESS 
952 001512 032737 000007 015754 1$: BIT #7 ,DMBCSR ‘TF 3 LSB ARE NOT 0 
953 001520 1404 BEQ REGST1 
954 001522 012716 001512 MOV #1$, (SP) 
955 001526 015176 JMP INSTER : INCORRECT ADDRESS, TRY AGAIN 
956 001532 013737 015754 015756 REGST1: MOV DMBCSR ,DMBLSR SET UP ADDRESS OF LINE STATUS REGISTER 
957 001540 062737 000002 015756 ADD #2,DMBLSR 
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958 
959 001546 BTS 4 001100 STARTN: MOV #STACK,SP SET UP PROCESSOR STACK 
960 001552 10401 INSTRG sGET TEST NUMBER 
961 001554 017500 MTEST MESSAGE ‘'TEST- 
962 001556 000000 0 ;LOWER LIMIT FOR TEST NUMBER 
963 001560 000777 777 ;UPPER LIMIT FOR TEST NUMBER 
964 001562 016002 TSTNO sSTORAGE FOR TEST 
965 001564 013705 016002 X1A: MOV TSTNO,R5 GET TEST NUMBER 
966 001570 042705 177077 BIC #177077,R5 EXTRACT TEST GROUP NUMBER 
967 001574 006205 ASR R5 
968 001576 006205 ASR R5 
969 001600 006205 ASR R5 
970 001602 006205 ASR R5 
971 001604 006205 ASR R5 
972 001606 016537 020236 016036 MOV GRO(RS) , TSTMAX GET HIGHEST TEST IN GROUP 
973 001614 016537 020216 016034 MOV TSTLST(RS) , TSTPNT 3GET POINTER TO TEST TABLE 
974 001622 005737 016034 TST TSTPNT :IF 0, INVALID TEST GROUP 
975 001626 001004 BNE STRTOA 
976 001630 012716 001564 X1B: MOV #X1A, (SP) 
977 001634 000137 015176 JMP INSTER zTRY AGAIN 
978 001640 042737 177700 016002 STRTOA: BIC #177700, TSTNO GET NUMBER OF FIRST TEST 
979 TO BE EXECUTED IN SELECTED GROUP 
980 001646 023737 016002 016036 CMP TSTNO, TSTMAX 71S NUMBER TOO LARGE 

1 1654 003401 BLE TSTGO 

982 001656 000764 BR X18 
983 001660 012746 000340 TSTGO: MOV #340,-(SP) SET UP PRIORITY LEVEL 
984 001664 005746 PUSH1SP 
985 001666 000005 
986 001670 012737 002146 002150 MOV #DMYRTI,KRET SET UP DUMMY KEYBOARD RETURN 
987 001676 005037 016040 CLR LINFLG :CLEAR LINE Ey FLAG 
988 001702 005037 015776 CLR TRACON EAR TRACE T LAG 
989 001706 005037 016000 CLR PASCNT CLEAR PASS COUNT 
990 001712 104004 TYPE 
991 001714 017514 MCRLF 
992 001716 012737 000001 001730 1$: MOV #1,TIPFLG SET TEST IN PROGRESS FLAG 
993 001724 000137 013564 JMP TSTENT ;START TESTING 
994 001730 TIPFLG: 0 
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SEQ 0024 





TELETYPE KEYBOARD INTERRUPT SERVICE ROUTINE 





998 001732 005037 001750 KBDINT: CLR —-TIPFLG CLEAR TEST IN PROGRESS FLAG 
999 001736 005037 014504 CLR = TMP 
1000 001742 005037 002152 CLR. SINTFL CLEAR SOFTWARE INTERRUPT FLAG 
1001 001746 117737 014010 014504 MOVB § @TKDBR, TMP1 
1002 001754 142737 000200 014504 B1cB #200, TAPI 
1003 001762 122737 000003 014504 CMPB #3, TMP IF <CONTROL C> WAS TYPED 
1004 001770 001011 BNE —-KBDIN1 “@C'* AND 
1005 001772 104004 TYPE {SELECT NEW TEST 
1006 001774 017744 MCONTC 
1007 001776 022626 POP2SP 
1008 002000 005077 013750 CLR @DMBCSR 
1009 002004 005077 013750 CLR — aTKCSR 
1010 002010 000137 001546 JMP_ START 
1011 002014 122737 000026 014504 KBDINI: CMPB #26, TMP1 z1F <CONTROL V> WAS TYPED 
1012 002022 001011 BNE —- KBDIN2 TYPE "'*v'" AND GET NEW 
1013 002024 104004 TYPE :VECTOR AND REGISTER ADDRESS 
1014 002026 017747 MCONTV 
1015 002030 022626 POP2SP 
1016 002032 005077 013716 CLR — @DMBCSR 
1017 002036 005077 013716 CLR = aTKCSR 
1018 002042 000137 001340 JMP_ —-VECSTR 
1019 002046 122737 000014 014504 KBDIN2: CMPB #14, TMP1 :1F CONTROL L> WAS TYPED 
1020 002054 001015 BNE KBD IN3 YPE "'*L'* AND GET NEW 
1021 002056 104004 TYPE :LINE NUMBERS, UNLESS 
1022 002060 017752 MCONTL :TEST GROUP O°WAS IN PROGRESS 
1023 002062 022737 002146 002150 CMP = #DMYRTI-KRET ZIF <CONTROL L> WAS TYPED IN TEST 
1024 002070 001426 BEQ = DMYRTI :GROUP 0, IGNORE 
1025 002072 022626 POP2SP 
1026 002074 005077 013654 CLR @DMBCSR 
1027 002100 005077 013654 CLR — aTKCSR 
1028 002104 000177 900040 JMP = @KRET 
1029 002110 022737 000176 015770 KBDIN3: CMP  § #SWREG, SWR 
1030 002116 001005 BNE 
1031 002120 122737 000007 014504 CMPB «#7, TMP1 
1032 002126 001001 ‘ee 
1033 002130 104025 CNTLUU 
1034 002152 012737 000001 002152 1$: MOV ‘#1, SINTFL :SET SOFTWARE INTERRUPT FLAG 
1035 002140 012737 000001 001730 MOV = #1, TIPFLG :SET TEST IN PROGRESS FLAG 
1036 002146 000002 DMYRTI: RTI 
1037 EVEN 
1038 002150 000000 KRET: 0 
1039 002152 000000 SINTFL: 0 
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| 
SNATEY THAT CONT CHECK = PERFORMED ONLY AT PROGRAM START | 
| 


1040 

1041 ONTROL STATUS REGISTER AND LINE STATUS 

10¢@ SREGISTER WERE CLEARED BY INITIALIZE 

1044 002154 10: : REFERENCE DESIGNATION 
1045 002154 104004 TYPE TYPE "8 LINE SCANNER TEST 
1046 002156 016613 M16 

1047 002160 005777 013570 INIT1: TST @DMBCSR ZTEST CONTROL STATUS REGISTER 
1048 002164 001401 BEQ +4 

1049 002166 104012 ERROR :CONTROL STATUS NOT CLEARED, ERROR 
1050 002170 005777 013562 TST @DMBLSR [TEST LINE STATUS REGISTER 
1051 002174 001401 BEQ +4 

1052 002176 104012 ERROR ZLINE STATUS NOT CLEARED, ERROR 
1053 2200 104002 SCOPE :CHECK FOR LOOP 

1055 ;VERIFY THAT “INTERRUPT ENABLE’ CAN BE 

1056 [SET AND CLEARED. 

1058 002202 11: ;REFERENCE DESIGNATION 

1059 002202 012777 000100 013544 CSTR1: MOV #INTENA, @DMBCSR ‘SET INTERRUPT ENABLE 

1060 002210 032777 000100 013536 BIT #INTENA.@DMBCSR ‘WAS INTERRUPT ENABLE SET 
1061 002216 001001 BNE +6 

1062 002220 104012 ERROR :NO, ERROR 

1063 002222 042777 000100 013524 BIC #INTENA, @DMBCSR ‘CLEAR INTERRUPT ENABLE 

1064 002230 032777 000100 013516 BIT #INTENA, @DMBCSR [WAS INTERRUPT ENABLE CLEARED 
1065 002236 001401 BEQ +6 

1066 002240 104012 ERROR :NO, ERROR 

1067 002242 104002 SCOPE [CHECK FOR ITERATIONS, LOOP 
1069 :VERIFY THAT "DONE’’ CAN BE SET AND CLEARED 

1071 002244 T2: : REFERENCE DESIGNATION 

1072 002244 012777 000200 013502 CSTR2: MOV #DONE , @DMBCSR ‘SET DONE 

1073 002252 032777 000200 013474 BIT #DONE . ADMBCSR ‘WAS DONE SET 

1074 002260 001001 BNE +6 

1075 002262 104012 ERROR ZNO, ERROR 

1076 002264 042777 000200 013462 BIC #DONE , @DMBCSR *CLEAR DONE 

1077 002272 032777 000200 013454 BIT #DONE . ADMBCSR [WAS DONE CLEARED 

1078 002300 001401 BEQ +4 

1079 002302 104012 ERROR :NO, ERROR 

1080 002304 104002 SCOPE 'CHECK FOR ITERATIONS, LOOP 
1082 ZVERIFY "MAINTENANCE MODE" CAN BE SET AND CLEARED 

1084 002306 13: : REFERENCE DESIGNATION 

1085 002306 012777 001000 013440 CSTR3: MOV #MAINT ,@DMBCSR [SET MAINTENANCE MODE 

1086 002314 032777 001000 013432 BIT #MAINT, @DMBCSR [WAS MAINTENANCE MODE SET 
1087 002322 001001 BNE +4 

1088 002324 104012 ERROR 7NO, ERROR 

1089 002326 042777 001000 013420 BIC #MAINT, @DMBCSR CLEARY MAINTENANCE MODE 

1090 002334 032777 001000 013412 BIT #MAINT.@DMBCSR [WAS MAINTENANCE MODE CLEARED 
1091 002342 001401 BEQ +6 

1092 002344 104012 ERROR :NO, ERROR 

1093 002346 104002 SCOPE [CHECK FOR ITERATIONS, LOOP 
1095 ;VERIFY THAT "'SCAN ENABLE’’ CAN BE SET AND CLEARED. 


T 
oe A SSS 


eros 
| 
| 
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1096 
097 002350 T4: REFERENCE DESIGNATION 
098 002350 012777 000040 013376 CSTR4: MOV #SCNENA,@DMBCSR SET SCAN ENABL 
099 002356 032777 000040 013370 BIT #SCNENA,@DMBCSR WAS SCAN ENABLE SET 
4 002364 001001 BNE +4 
02 002366 104012 ERROR 3NO, ERROR 
03 002370 042777 000040 013356 BIC #SCNENA,@DMBCSR CLEAR SCAN ENABLE 
04 002376 032777 000040 013350 BIT #SCNENA,@DMBCSR WAS SCAN ENABLE CLEARED 
05 002404 001401 BEQ +4 
002406 104012 ERROR 3NO, ERROR 
002410 104002 SCOPE :CHECK FOR ITERATIONS, LOOP 
sVERIFY THAT ‘BUSY'' IS SET WHEN ‘'SCAN ENABLE’ IS SET 
VERIFY THAT ‘BUSY'’ IS CLEARED WHEN ‘SCAN ENABLE'’ IS CLEARED 
002412 15: 
002412 012777 000040 013334 CSTRS: MOV #SCNENA, @DMBCSR : sc L 
002420 032777 000020 013326 BIT #BUSY , @DMBCSR :I1S BUSY BIT SET 
002426 001001 BNE +4 
002430 104012 ERROR BUSY NOT SET, ERROR 
002432 042777 000040 013314 BIC #SCNENA, @DMBCSR :CLEAR SCAN ENABLE 
002440 032777 000020 013306 BIT #BUSY , @DMBCSR 21S BUSY BIT CLEARED 
002446 001401 BEQ +4 
002450 104012 ERROR BUSY NOT CLEARED, ERROR 
002452 104002 SCOPE CHECK FOR LOOP, ITERATIONS 


zVERIFY THAT SETTING ‘DONE’’ DOES NOT CCAUSE AN 
z INTERRUPT IF “‘INTERRUPT ENABLE’’ IS CLEARED. 
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002454 T6: sREFERENCE DESIGNATION 
002454 052737 000340 177776 INT1: BIS #340,PS LOCK OUT INTERRUPTS 
5077 013266 CLR @DMBCSR CLEAR CONTROL REGISTER 
002466 012777 002522 013254 MOV #INT1A, @DMBVEC SET UP INTERRUPT SERVICE ADDRESS 
002474 013777 177776 013250 MOV PS ,@DMBLVL SET UP INTERRUPT PRIORITY 
002502 052777 000200 013244 BIS #DONE , @DMBCSR :SET DONE 
002510 042737 000340 177776 BIC #340,PS sALLOW INTERRUPTS 
002516 000240 NOP DELAY FOR INTERRUPT 
002520 000402 BR INT18 NO INTERRUPT, CONTINUE 
002522 022626 INTIA: POP2SP sRESTORE STACK, INTERRUPT 
37 002524 104012 ERROR OCCURED, ERROR 
; 002526 104002 INT1B: SCOPE :CHECK FOR LOOP, ITERATIONS 
4 sVERIFY THAT NO INTERRUPT OCCURS WITH ‘‘INTERRUPT ENABLE"’ 
7 :SET AND *‘DONE*’ CLEARED. 
4 2530 17: sREFERENCE DESIGNATION 
44 002530 052737 000340 177776 INT2: BIS #340,PS LOCK OUT INTERRUPTS 
45 002536 005077 013212 CLR @DMBCSR CLEAR CONTROL REGISTER 
46 002542 012777 002576 013200 MOV #INT2A, @DMBVEC SET UP INTERRUPT SERVICE ADDRESS 
47 002550 0135777 177776 013174 MOV PS ,@DMBLVL :SET UP_INTERRUPT SERVICE LEVEL 
48 002556 052777 000100 013170 BIS 11 ete zSET INTERRUPT E 
49 002564 042737 000340 177776 BIC #340,PS sALLOW INTERRUPTS 
50 002572 000240 NOP DELAY FOR INTERRUPTS 
51 002574 000402 BR INT2B :NO INTERRUPT, CONTINUE 


REFERENCE DESIGNATION 
; AN ENABLE 
I 
| 
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1152 002576 022626 INT2A: POP2SP sRESTORE STACK 

1153 002600 104012 RROR ZINTERRUPT OCCURED, ERROR 

1154 002602 104002 INT2B: SCOPE :CHECK FOR ITERATIONS, LOOP 

1156 :VERIFY THAT SETTING 'DONE’’ CAUSES AN INTERRUPT 

1197 ;WITH "INTERRUPT ENABLE’’ SET 

1159 002604 110: :REFERENCE DESIGNATION 

1160 002604 052737 000340 177776 INT3: BIS #340,PS LOCK OUT INTERRUPT 

1161 002612 005077 013136 CLR @aDMBESR CLEAR CONTROL REGISTER 

1162 002616 012777 002670 013124 MOV —- #INT 3A, @DMBVEC :SET UP INTERRUPT SERVICE ADDRESS 
1163 002624 012777 000100 013122 MOV - #INTENA, aDMBCSR :SET “INTERRUPT ENABLE" 

1164 002632 013777 177776 013112 PS, aDMBLVL :SET “INTERRUPT LEVEL 

1165 002640 042737 000340 177776 BIC #340, PS ZALLOW INTERR 

1166 002646 052777 000200 013100 BIS #DONE,aDMBCSR :SET 

1167 002654 000240 NOP :DELAY FOR INTERRUPT 

1168 002656 000240 NOP 

1169 002660 005077 013070 CLR @DMBCSR 

1170 002664 104012 ERROR : INTERRUPT OCCURED, ERROR 

1171 002666 000401 BR INT3B : CONTINUE 

1172 002670 022626 INT3A: POP2SP ZINTERRUPT OCCURED, RESTOR STACK 
1173 002672 104002 INT3B: SCOPE CHECK FOR ITERATION, LOOP 

1175 

1176 :VERIFY THAT NO INTERRUPT OCCURS WITH 

1177 :INTERRUPT ENABLE’ SET AND "DONE'’ SET AT PRIORITY 7. 

1178 002674 111: ;REFERENCE DESIGNATION 

1179 002674 005077 013054 INT4: CLR — @DMBCSR CLEAR CONTROL REGISTER 

1180 002700 042737 000340 177776 BIC #340, PS ;SET PROCESSOR PRIORITY 

1181 002706 052737 000340 177776 BIS #340,PS :TO LEVEL 7. 

1182 002714 012777 002756 013026 MOV ——- MINT4A,, aDMBVEC ;SET UP INTERRUPT SERVICE ADDRESS 
1183 002722 013777 177776 013022 MOV —-~PS, @DMBLVL ;SET UP_INTERRUPT SERVICE LEVEL 
1184 002730 012777 000100 013016 MOV - #INTENA, @DMBCSR :SET INTERRUPT ENABLE 

1185 002736 052777 000200 013010 BIS #DONE ,aDMBCSR GENERATE INTERRUPT 

1186 002744 000240 NOP :DELAY FOR INTERRUPT 

1187 002746 000240 NOP 

1188 002750 005077 013000 CLR  @DMBCSR 

1189 002754 000402 BR INT4B :NO_INTERRUPT, CONTINUE 

1190 002756 022626 INT4A: POP2SP ZRESTORE STACK 

1191 002760 104012 ERROR ZINTERRUPT OCCURED, ERROR 

1192 002762 104002 INT4B: SCOPE :CHECK FOR ITERATION, LOOP 


= 
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119% ;VERIFY THAT NO INTERRUPT OCCURS WITH 
1195 : INTERRUPT ENABLE'’ SET AND "DONE'’ SET AT PRIORITY 6. 
1196 002764 T12: ;REFERENCE DESIGNATION 
1197 002764 005077 012764 INTS: CLR — @DMBCSR CLEAR CONTROL REGISTER 
1198 002770 042737 000340 177776 BIC #340.PS ;SET PROCESSOR PRIORITY 
1199 002776 052737 000300 177776 BIS #300,PS :TO LEVEL 6. 
1200 012777 003046 012736 MOV - WINT5A, @DMBVEC ZSET UP INTERRUPT SERVICE ADDRESS 
1201 003012 013777 177776 012732 mov PS, L SET UP_INTERRUPT SERVICE LEVEL 
1202 003020 012777 000100 012726 MOV - MINTENA, @DMBCSR ;SET_INTERRUPT ENABLE 
1203 003026 052777 000200 012720 BIS #DONE,aDMBCSR :GENERATE INTERRUPT 
1204 003034 000240 NOP ;DELAY FOR INTERRUPT 
1205 003036 000240 NOP 
1206 003040 005077 012710 CLR  @DMBCSR 
1207 003044 000402 BR INTSB ;NO_INTERRUPT, CONTINUE 
1208 003046 022626 INTSA: POP2SP ZRESTORE S$ 
1209 003050 104012 ERROR INTERRUPT OCCURED, ERROR 
1219 003052 104002 INTSB: SCOPE CHECK FOR ITERATION, LOOP 
1212 :VERIFY THAT NO INTERRUPT OCCURS WITH 
1213 :INTERRUPT ENABLE’ SET AND “DONE'’ SET AT PRIORITY 5. 
1214 003054 113: ;REFERENCE DESIGNATION 
1215 003054 005077 012674 INT6: CLR  — @DMBCSR CLEAR CONTROL REGISTER 
1216 003060 042737 000340 177776 BIC #340,PS :SET PROCESSOR PRIORITY 
1217 003066 052737 000240 177776 BIS #240,PS :TO LEVEL 5. 
1218 003074 012777 003136 012646 MOV - #INT6A, aDMBVEC ZSET UP INTERRUPT SERVICE ADDRESS 
1219 003102 013777 177776 012642 MOV PS, @DMBLVL :SET UP_INTERRUPT SERVICE LEVEL 
1220 003110 012777 000100 012636 MOV - #INTENA, @DMBCSR ;SET INTERRUPT ENABLE 
1221 003116 052777 000200 12630 BIS #DONE ,@DMBCSR :GENERATE INTERRUPT 
1222 003124 000240 NOP :DELAY FOR INTERRUPT 
1223 003126 000240 NOP 
1224 003130 005077 012620 CLR  @DMBCSR 
1225 003134 000402 BR INT6B ;NO_INTERRUPT, CONTINUE 
1226 003136 022626 INT6A: POP2SP ;RESTORE STA 
1227 003140 104012 ERROR ; INTERRUPT OCCURED, ERROR 
1228 003142 104002 INT6B: SCOPE CHECK FOR ITERATION, LOOP 
1230 :VERIFY THAT NO INTERRUPT OCCURS WITH 
1231 :INTERRUPT ENABLE'’ SET AND ‘DONE'’ SET AT PRIORITY 4. 
1232 003144 114: ;REFERENCE DESIGNATION 
1233 003144 005077 012604 INT7: CLR @DMBCSR CLEAR CONTROL REGISTER 
1234 003150 042737 000340 177776 Bic —- #340, PS :SET PROCESSOR PRIORITY 
1235 003156 052737 000200 177776 BIS  #200,PS :TO LEVEL 4. 
1236 003164 O1¢777 O0se26 012536 MOV - #INT7A,@DMBVEC :SET UP INTERRUPT SERVICE ADDRESS 
1237 003172 013777 177776 012552 MOV PS, aDMBLVL :SET UP_INTERRUPT SERVICE LEVEL 
1238 003200 012777 000100 012546 MOV ——« #INTENA, @DMBCSR ;SET INTERRUPT ENABLE 
1239 003206 052777 000200 012540 BIS #DONE ,@OMBCSR ;GENERATE INTERRUPT 
1240 003214 000240 NOP DELAY FOR INTERRUPT 
1241 003216 000240 NOP 
124¢ 903220 005077 012530 CLR  @DMBCSR 
1243 003224 000402 BR INT/B ;NO_INTERRUPT, CONTINUE 
1244 003226 022626 INT7A: POP2SP :RESTORE STACK 
1245 003230 104012 ERROR INTERRUPT OCCURED, ERROR 
1246 003232 104002 INT7B: SCOPE CHECK FOR ITERATION, LOOP 
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1249 VERIFY THAT AN INTERRUPT OCCURS WITH “INTERRUPT 

1250 SENABLE'' SET AND ‘DONE’ SET AT PRIORITY 

1251 003234 115: sREFERENCE DESIGNATION 

125¢ 003234 005077 012514 INT10: CLR @DMBCSR *CLEAR CONTROL REGISTER 

1253 003240 042737 000340 177776 BIC #340,PS ‘ALLOW INTERRUPTS 

1254 003246 012777 003316 012474 MOV #INTIOA, @DMBVEC ;SET UP INTERRUPT SERVICE ADDRESS 
1255 003254 005077 012472 CLR @DMBLVL “SET UP INTERRUPT SERVICE PRIORITY 
1256 003260 052737 000000 177776 BIS #0,PS :SET PROCESSOR PRIORITY TO LEVEL 0. 
1257 003266 012777 000100 012460 MOV #INTENA, @DMBCSR ‘SET INTERRUPT ENABLE 

1258 003274 052777 000200 012452 BIS #DONE , aDMBCSR [GENERATE INTERRUPT 

1259 003302 000240 NOP ‘WAIT FOR INTERRUPT 

1260 003304 000240 NOP 

1261 003306 005077 012442 CLR @DMBCSR 

1262 003312 104012 ERROR ZNO INTERRUPT, ERROR 

1263 003314 000401 BR INT108 : CONT INUE 

1264 003316 022626 INT10A: POP2SP S INTERRUPT OCCURED, RESTORE STACK 
1265 003320 104002 INT10B: SCOPE ‘CHECK FOR INTERATIONS, LOOP. 

1267 :VERIFY, THAT AN INTERRUPT OCCURS WITH “INTERRUPT 

1268 SENABLE’’ SET AND ''DONE’’ SET AT PRIORITY 1. 

1269 003322 T16: ;REFERENCE DESIGNATION 

1270 003322 005077 012426 INT11: CLR @DMBCSR SCLEAR CONTROL REGISTER 

1271 003326 042737 000340 177776 BIC #340,PS ;ALLOW INTERRUPTS 

1272 003334 012777 003404 012406 MOV #INT11A, @DMBVEC SET UP INTERRUPT SERVICE ADDRESS 
1273 003342 005077 012404 CLR @DMBL VL :SET UP INTERRUPT SERVICE PRIORITY 
1274 003346 052737 000040 177776 BIS #40,PS ZSET PROCESSOR PRIORITY TO LEVEL 1. 
1275 003354 012777 000100 012372 MOV #INTENA, 2DMBCSR [SET INTERRUPT ENABLE 

1276 003362 052777 000200 012364 BIS #DONE , @DMBCSR 'GENERATE INTERRUPT 

1277 003370 000240 NOP [WAIT FOR INTERRUPT 

1278 003372 000240 NOP 

1279 003374 005077 012354 CLR @DMBCSR 

1280 003400 104012 ERROR :NO INTERRUPT, ERROR 

1281 003402 000401 SR INT11B + CONT INUE 

1282 003404 022626 INT11A: POP2SP T INTERRUPT OCCURED, RESTORE STACK 
1283 003406 104002 INT11B: SCOPE [CHECK FOR INTERATIONS, LOOP. 

1285 :VERIFY THAT AN INTERRUPT OCCURS WITH "INTERRUPT 

1286 SENABLE'' SET AND '‘DONE’' SET AT PRIORITY 2. 

1287 003410 117: : REFERENCE DESIGNATION 

1288 003410 005077 012340 INT12: CLR @DMBCSR CLEAR CONTROL REGISTER 

1289 003414 042737 000340 177776 BIC #340,PS ZALLOU INTERRUPTS 

1290 003422 012777 003472 012320 MOV #INT1 2A, aDMBVEC [SET UP INTERRUPT SERVICE ADDRESS 
1291 003430 005077 012316 CLR @DMBLVL :SET UP INTERRUPT SERVICE PRIORITY 
1292 003434 052737 000100 177776 BIS #100,PS ZSET PROCESSOR PRIORITY TO LEVEL 2. 
1293 003442 012777 000100 012304 MOV #INTENA, @DMBCSR :SET INTERRUPT ENABLE 

1294 003450 052777 000200 012276 BIS #DONE , aDMBCSR [GENERATE INTERRUPT 

1295 003456 000240 NOP ‘WAIT FOR INTERRUPT 

1296 003460 000240 NOP 

1297 003462 005077 012266 CLR @DMBCSR 

1298 003466 104012 ERROR ;NO_INTERRUPT, ERROR 

1299 003470 000401 BR INT12B INUE 

1300 003472 022626 INT12A: POP2SP S INTERRUPT OCCURED, RESTORE STACK 
1301 003474 104002 INT12B: SCOPE [CHECK FOR INTERATIONS, LOOP. 
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1302 2 
1303 :VERIFY, THAT AN INTERRUPT OCCURS WITH ‘INTERRUPT 
1304 SENABLE" SET AND "DONE'’ SET AT PRIORITY 3. 
1305 003476 120; ;REFERENCE DESIGNATION 
1306 003476 005077 012252 INTI3: CLR  @DMBCSR ZCLEAR CONTROL REGISTER 
1307 003502 042737 000340 177776 BIC #340, PS ;ALLOW_ INTERRUPTS 
1308 003510 012777 003560 012232 MOV —- HINT 1 3A, @DMBVEC ;SET UP INTERRUPT SERVICE ADDRESS 
1309 003516 005077 012230 CLR @DMBLVL ;SET UP INTERRUPT SERVICE PRIORITY 
1310 003522 052737 000140 177776 BIS #140, PS ;SET PROCESSOR PRIORITY TO LEVEL 3. 
1311 003530 012777 000100 012216 MOV #INTENA,@DMBCSR ;SET_INTERRUPT ENABLE 
1312 003536 052777 000200 012210 BIS  #DONE,@OMBCSR :GENERATE INTERRUPT 
1313 003544 000240 NOP sWAIT FOR INTERRUPT 
1314 003546 00240 NOP 
1315 003550 005077 012200 CLR @DMBCSR 
1316 003554 104012 ERROR NO INTERRUPT, ERROR 
1317 003556 000401 BR INT13B ; CONTINUE 
1318 003560 022626 INT13A: POP2SP ; INTERRUPT OCCURED, RESTORE STACK 
1319 003562 104002 INT138: SCOPE ;CHECK FOR INTERATIONS, LOOP. 
1321 ;VERIFY THAT ALL LINE NUMBERS CAN BE WRITTEN INTO AND 
1336 sREAD BACK FROM LINE COUNTER 
1324 003564 T21: REFERENCE DESIGNATION 
1325 003564 005077 012164 LINT1: CLR @DMBCSR CLEAR CONTROL STATUS REGISTER 
1326 003570 042737 000340 177776 BIC —-#340,PS SENABLE INTERRUPTS 
1327 003576 005005 CLR R5 ;CLEAR EXPECTED LINE MUMBER 
1328 003600 012700 000010 MOV #8. RO :SET UP TO TEST 8 LIME NUMBERS 
1329 003604 010577 012144 LINT1A: MOV R5,@DMBCSR 7SET LINE NUMBER 
1330 003610 017704 012140 MOV @DMBCSR ,R4 READ BACK LINE NUMBER 
1331 003614 020504 CMP oR4 sARE EXPECTED AND RECEIVED 
1332 003616 001401 BEQ —LINT1B SLINE NUBMERS TH 
1333 003620 104000 ERRORC sLINE NUMBERS DIFFERENT, ERROR 
1334 003622 104003 LINT1B: SCOPEF CHECK FOR DATA FREEZE 
1335 003624 003604 LINTIA RETURN FOR DATA FREEZE 
1336 003626 005205 NC RS SUPDATE LINE COUNT 
1337 003630 005300 DEC RO UPDATE LINE NUMBER 
1338 003632 001364 BNE LINTIA : CONTI 
1339 003634 104002 SCOPE :CHECK FOR ITERATION, LOOP 
1341 USING ‘“'STEP'* MODE, VERIFY THAT THE 
1S ;LINE COUNTER CAN BE STEPPED THRU ALL STATES. 
1344 003636 122: ;REFERENCE DESIGNATION 
1345 003636 042737 000340 177776 LINT2: BIC  #340,PS SENABLE INTERRUPTS 
1346 003644 005077 012104 CLR © @DMBCSR :CLEAR CONTROL STATUS REGISTER 
1347 003650 005005 CLR RS :CLEAR EXPECTED LINE COUNT 
1348 003652 012700 000010 MOV = #8. LR :SET UP TO TEST 8 VALUES 
1349 003656 012777 000007 012070 MOV #7, @DMBCSR 3FIRST VALUE =0 
1350 003664 052777 000400 012062 LINT2A: BIS  #STEP, aDMBCSR SSTEP LINE COUNTER 
1351 003672 017704 012056 MOV — @DMBCSRR4 :READ LINE COUNTER 
1352 003676 020504 CMP RS, : COMPARE EXPECTED AND 
1353 003700 001401 BEQ —LINT2B :RECEIVED LINE NUMBERS 
1354 003702 104 ERRORC sLINE COUNTER ERROR 
1355 003704 10400 LINT2B: SCOPEF :CHECK FOR DATA FREEZE 
1356 003706 003636 LINT2 
1357 003710 005205 INC = RS ;UPDATE EXPECTED LINE NUMBER 
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1358 003712 005300 DEC = RO 
1359 003714 001363 BNE LINT2A 
1360 005716 104002 SCOPE CHECK FOR ITERATIONS, LOOP 
1362 :WRITE 1°S INTO ALL SCANNER MEMORY LOCATIONS. 
1365 iVERIEY THAT ALL LOCATIONS HAVE BEEN WRITTEN 
1365 :VERIFY THAT "'CLEAR SCAN" CLEARS ALL SCANNER 
1366 MEMORY LOCATIONS. 
1368 003720 123: ;REFERENCE DESIGNATION 
1369 003720 012777 002000 012026 MEMT1: MOV § #CLRMUX,@DMBCSR CLEAR CONTROL STATUS REGISTER 
1370 003726 042737 000340 177776 BIC #340, PS ;ENABLE INTERR 
1371 003734 012700 000010 MOV =—-#8. ,RO SET UP 10. TEST 8 LOCATIONS 
1372 003740 052777 001017 012006 BIS #MAINT+17,aDMBCSR :SET MAINTEANCE MODE 
1373 003746 052777 000400 012000 MEMTIA: BIS § #STEP, @DMACSR :SET LINE COUNTER THRU ALL 
1374 003754 005300 DEC —s_ RO iSTATES, WRITING 1°S INTO 
1375 003756 001373 BNE §- MEMT1A ZALL MEMORY WORDS 
1376 003760 012700 000010 MOV = #8. RO :SET UP TO TEST 8 WORDS 
1377 003764 012705 070000 mov  #70600,R5 iSET UP EXPECTED STATUS REGISTER 
1378 003770 012777 000007 011756 MOV #7, aDMBCSR ZSTART WITH LINE 0 
1379 003776 052777 000400 011750 MEMT1B: BIS § #STEP,@DMBCSR TACCESS- SCANNER MEMORY 
1380 004004 017704 011744 MOV — @DMBCSRR4 ZREAD DATA 
1381 004010 020504 CMP RSG ;COMPARE EXPECTED AND RECEIVED 
1382 004012 001403 BEQ = MEMTIC ATA 
1383 004014 104000 ERRORC SCONTROL STATUS OR MEMORY ERROR 
1384 004016 104003 SCOPEF :CHECK FOR DATA FREEZE 
1385 004020 003720 MEMT 1 
1386 004022 005205 MEMTIC: INC RS :UPDATE EEXPECTED STATUS 
1387 004024 005300 DEC = RO ZUPDATE LINE COUNT 
1388 004026 001363 BNE § MEMT1B : CONT INUE ey 
1389 004030 012777 004000 011716 MEMTID: MOV  #CLRSCN, @DMBCSR :SET "CLEAR SCAN ; 
1390 004036 032777 000020 011710 BIT #BUSY,@DMBCSR ZWAIT FOR ''CLEAR CYCLES" 
1391 004044 001374 BNE  .~6 
1392 004046 012700 000010 Moy #8. .RO :SET UP TO TEST 8 MEMORY 
1393 004052 005005 CLR :LOCATIONS 
139% 004054 012777 000007 011672 MOV -A7,@DMACS ZFIRST TO BE TESTED=0 
1395 004062 052777 000400 011664 MEMTIE: BIS | #STEPSADMBCSR ZACCESS SEANNER MEMOR 
139% 004070 017704 011660 MOV — @DMBCSR,R4 :READ DATA 
1397 004074 020504 (MP RS, COMPARE EXPECTED AND RECEIVED 
1398 004076 001403 BEQ = MEMT1F :DATA 
1399 004100 104000 ERRORC CONTROL STATUS OF MEMORY ERROR 
1400 004102 104003 SCOPEFF CHECK FOR DATA FREEZE 
1401 004104 004030 MEMT1D 
1402 004106 005205 MEMTIF: INC = RS ;UPDATE EXPECTED DATA 
1403 004110 005300 DEC =—_ RO ZUPDATE LINE COUNT 
1404 004112 001363 BNE MEMT1E :CONTT INUE 
1405 004114 104002 SCOPE :CHECK FOR ITERATIONS, LOOP 
1407 ;WRITE 1°S INTO SELECTED SCANNER MEMORY LOCATION. 
1408 ;VERIFY THAT ONLY SELECTED LOCATION WAS WRITTEN INTO. 
1410 004116 124: :REEERENCE DESIGNATION 
1411 004116 005077 011632 MEMT2: CLR § @DMBCSR ZCLEAR CONTROL STATUS REGISTER 
1412 004122 042737 000340 177776 BIC #340, PS ZENABLE INT 
1413 004130 012700 000010 MOV = #8. , RO SET UP 10 TEST 8 ADDRESSES 
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1414 004134 01 1370 000007 MOV #7 ,R2 sFIRST ADDRESS TO Fey TESTED=0 
1415 004140 01 004000 011606 MEMT2A: MOV #CLRSCN,@DMBCSR CLEAR ACANNER MEMORY 

413 Boe lee 039777 000020 011600 a #BUSY -@DMBCSR WAIT FOR CLEAR CYCLE 

1418 004156 012777 001000 011570 MOV AMAINT ,aDMBCSR 3SET ‘MAINTENANCE MODE'’ 

1419 004164 050277 011564 BIS R2,@DMBCSR 3SET LINE COUNTER TO Hed ADDRESS~1 
1420 004170 052777 000400 011556 BIS Aste @DMBCSR sWRITE 1°S INTO TEST ADDRESS 
1421 004176 042777 001000 011550 BIC #MAINT ,@DMBCSR sCLEAR ‘MAINTENANCE MODE 

1422 004204 012703 000010 MOV ‘8, SET UP TO TEST ALL 8 

1423 004210 012777 000007 011536 MOV #7, aDMBCSR : SCANNER MEMORY LOCATIONS 
1424 004216 005202 INC R2 

1425 004220 005001 CLR R1 

1426 004222 052777 000400 011524 MEMT2B: BIS #STEP,aDMBCSR sACCESS SCANNER Age 

1427 004230 117704 011520 MOVB @DMBCSR ,R4 sREAD CONPENTS OF MEMORY 

1428 004234 010105 MOV R1,R5 ;SET UP EXPECTED CONTENTS 
1429 004236 120402 CMPB P OF SCANNER MEMOR 

1430 004240 001002 BNE MEMT2C 

1431 004242 052705 070000 BIS #70000,R5 

1432 004246 020405 MEMT2C: CMP R4 ,R5 COMPARE EXPECTED AND RECEIVED 
1433 004250 001403 BEQ MEMT 2D : VALUES 

1434 004252 104000 ERRORC SCANNER MEMORY ERROR 

1435 004254 104003 SCOPEF :CHECK FOR DATA FREEZE 

1436 004256 004140 MEMT2A 

1437 004260 005201 MEMT2D: INC R1 

1438 004262 005303 DEC R3 TEST NEXT SCANNEB LOCATION 
1439 004264 001356 BNE MEMT 2B 

1440 004266 005300 DEC RO UPDATE LINE COUNT 

1441 004270 001323 BNE MEMT2A 

Hr 4 004272 104002 SCOPE CHECK FOR ITERATION, LOOP 
1444 sWITH ALL ACANNER MEMORY ies SET TO 1°S, 

1445 sWRITE O°S INTO SELECTED LOCAT 

94 | :VERIFY THAT ONLY SELECTED LOCATION WAS CLEARED. 

1448 004274 T25: REFERENCE DESIGNATION 

1449 004274 005077 011454 MEMT3: CLR @DMBCSR CLEAR CONTROL STATUS REGISTER 
1450 004300 042737 000340 177776 BIC #340,PS ENABLE INTERRUPTS 

1451 004306 012700 000010 MOV #8. ,RO SET UP TO TEST 8 ADDRESSES 
1452 004312 012702 000007 MOV #7 ,R2 :FIRST ADDRESS TO BE TESTED=0 
1453 004316 012703 000010 MEMT3A: MOV #8. ,R3 WRITE 1°S INTO ALL SCANNER 
1454 004322 012777 001007 011424 MOV #MAINT+7 ,aDMBCSR :MEMORY LOCATIONS 

1455 004330 052777 000400 011416 MEMT3B: BIS #STEP ,@DMBCSR 

1456 004336 005303 DEC R3 

1457 004340 001373 BNE MEMT3B 

1458 004342 010277 011406 MOV R2,a@DMBCSR ;SET LINE COUNTER TO pea ADDRESS~1 
1459 004346 052777 000400 011400 BIS #STEP ,aDMBCSR WRITE O'S INTO Hie: DRESS 
1460 004354 012703 000010 MOV #8. RS SET UP _TO TEST ALL 3 

1461 004360 012777 000007 011366 MOV #7, a@DMBCSR SCANNER MEMORY LOCATIONS 
1462 004366 005202 INC R2 

1463 004370 005001 CLR R1 

1464 004372 052777 000400 011354 MEMT3C: BIS #STEP ,aDMBCSR sACESS aan MEMOR 

1465 004400 117704 011350 MOVB a oR4 READ CONTENTS OF MEMORY 

1466 004404 010105 MOV :SET UP EXPECTED CONTENTS 
1467 004406 120402 CMPB ane OF SCANNER MEIORY 

1468 004410 BPO BNE near D 

1469 004412 052705 070000 BIS 0000.R5 
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1470 004416 020405 MEMT3D: CMP R4,R5 : COMPARE EXPECTED AND 

1471 004420 001403 BEQ MEMT 3E SRECEIVED VALUES 

1472 004422 104000 ERRORC ; ER MEMORY ERROR 

1473 004424 104003 SCOPEF “CHECK FOR DATA FREEZE 

1474 004426 004316 MEMT3A 

1475 004430 005201 MEMT3E: INC R1 

1476 004432 005303 DEC R3 :TEST NEXT SCANNER LOCATION 

1477 004434 001356 BNE MEMT3C 

1478 004436 005300 DEC RO ;UPDATE ADDRESS COUNT 

1479 004440 001326 BNE MEMT3A 

1480 004442 104002 SCOPE sCHECK FOR ITERATION, LOOP 

1481 ;VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN 

1482 SBE SET AND CLEARED FOR SELECTED LINE 

1484 004444 126: ZREFERENCE DESIGNATION 

1485 004444 005077 011304 MUX1: CLR @DMBCSR “CLEAR CONTROL STATUS REGISTER 

1486 004450 042737 000340 177776 BIC #340,PS ‘ENABLE INTERRUPTS 

1487 004456 012700 000010 MOV #8. .RO ‘SET UP TO TEST 8 FUNCTION FLIP-FLOP 
1488 004462 005001 CLR R1 [START AT LINE 0 

1489 004464 012777 092000 011262 MUXIA: MOV #CLRMUX,a@DMBCSR 

1490 004472 012702 00001 MOV #8., 

1491 004476 010177 011252 MOV R1.aDMBCSR :SELECT LINE TO BE TESTED 

1492 004502 012777 000001 011246 MOV #LINENA, aDMBLSR ‘SET LINE ENABLE FUNCTION FLIP-FLOP 
1493 004510 005077 011240 CLR @DMBCSR 

1494 004514 005005 MUX1B: CLR RS 

1495 004516 017704 011234 MOV @DMBLSR,R4 ZREAD LINE STATUS REGISTER 

1496 004522 117703 011226 MOVB  a@DMBCSR.R3 ‘READ CONTROL STATUS REGISTER 

1497 004526 042703 177760 BIC #177760.R3 ‘CLEAR UNWANTED BITS 

1498 004532 020103 CMP R1,R3 SIF LINE NUMBER=SELECTED LINE NUMBER, 
1499 004534 001002 BNE MUX1C SEXCEPT LINE ENABLE FUNCTION FLIP FLOP 
1300 004536 012705 000001 MOV #LINENA,RS it ae ae 

1502 004542 020504 MUX1C: CMP R5,R4 [COMPARE EXPECTED AND RECEIVED 

1503 004544 001403 BEQ MUY1D SRESULTS 

1504 004546 104001 ERRORL SLINE STATUS ERROR 

1505 004550 104003 SCOPEF 

1506 004552 004554 MUX 

1507 004554 052777 000400 011172 MUX1D: BIS #STEP,aDMBCSR ZEXAMINE NEXT LINE 

1508 004562 005302 DEC R 

1509 004564 001353 BNE MUX1B 

1510 004566 005005 CLR R 

1511 004570 010177 011160 MUX1E: MOV R1,aDMBCSR 

1512 004574 010103 MOV : :SET LINE COUNTER TO SELECTED LINE 
1513 004576 005077 011154 CLR @DMBLSR [CLEAR LINE ENABLE FLIP FLOP 

1514 004602 105227 000000 INCB oO ‘DELAY FOR CABLE 

1515 004606 001375 BNE 4 ‘DITTO 

1516 004610 017704 011142 MOV @DMBLSR,R4 ‘READ LINE STATUS REGISTER 

1517 004614 005704 TST RS [WAS LINE ENABLE FUNCTION FLIP FLOP 
1518 004616 001401 BEQ MUX1F CLEARED 

1519 004620 104001 ERRORL ‘NO, LINE STATUS ERROR 

1520 004622 104003 MUX1F: SCOPEF [CHECK FOR LOOP ON SAME DATA 

1521 004624 004464 MUX1A 

1522 004626 005201 INC R1 :SELECT NEXT LINE 

1523 004630 005300 DEC RO *DECREMENT LINE COUNT 

1524 004632 001314 BNE MUX1A [CONTINU IF NOT DON 

1525 004634 104002 SCOPE [CHECK FOR ITERATIONS, LOOP 
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T2?7: 
MUX2: 


MUX2A: 


MUX2B: 


MUX2C: 


MUX2D: 


MUX2E : 


MUX2F : 


21-0CT-81 





@DMBCSR 
#340,PS 
#8., 0 


#CLRMUX , @DMBCSR 
R1.aDMBCSR 
#TRMRDY , ADMBLSR 
aDMBCSR 
@DMBLSR,R4 
@DMBCSR.R3 
#177760.R3 
R1,R3 

MUX2C 
ATRMRDY RS 


R5,R4 
MUX2D 


carte 
MUX2B 

R5 

R1,@DMBCSR 
R1,R3 

@DMBLSR 

", 
@DMBL SR ,R4 

R4 

MUX2F 


R1 
RO 
MUX2A 
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SEQ 0034 


VERIFY THAT TERMINAL READY FUNCTION FL. -FLOP CAN 
sBE SET AND CLEARED FOR SELECTED LINE 


Ta to DESIGNATION 


AR_ CONTROL STATUS REGISTER 


TENABLE INTERRUPTS 
[SET UP TO TEST 8 FUNCTION FLIP-FLOP 
“START AT LINE 0 


;SELECT LINE TO BE TESTED 
SET TERMINAL READY FUNCTION FLIP-FLOP 


READ LINE STATUS REGISTER 
READ CONTROL STATUS REGISTER 
CLEAR UNWANTED BITS 


IF LINE NUMBER=SELECTED LINE NUMBER 


SEXCEPT TERMINAL READY FUNCTION FLIP FLOP 


:TO BE SET 
4 eae! EXPECTED AND RECEIVED 


[LINE STATUS ERROR 


EXAMINE NEXT LINE 


SET LINE COUNTER TO SELECTED LINE 
CLEAR TERMINAL READY FLIP FLOP 
DELAY FOR CABLE 


:DITTO 
sREAD_LINE STATUS REGISTE 
;WAS TERM 


R 
INAL READY FUNCTION FLIP FLOP 


; CLEARED 
NO, LINE STATUS ERROR 
:CHECK FOR LOOP ON SAME DATA 


sSELECT NEXT LINE 
:DECREMENT LINE COUNT 


:CONTINU IF NOT DONE 
CHECK FOR ITERATIONS, LOOP 
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005077 010720 
042737 000340 
012700 000010 
005001 
012777 002000 
012702 000010 
010177 010666 
012777 000004 
005077 010654 
005005 
017704 010650 

06 117703 010642 

12 042703 177760 

16 020103 

20 001002 

22 012705 000004 

26 020504 

30 001403 

32 104001 

34 104003 

36 005140 

40 052777 000400 

46 005302 

50 001353 

52 005 

54 010177 010574 

60 010103 

62 005077 010570 

66 105227 000000 

72 001375 

74 017704 010556 

00 005704 

02 001401 

04 104001 

06 104003 

10 005050 

12 005201 

14 005300 

16 001314 

20 104002 
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T30: 
MUX3: 
177776 


010676 MUX3A: 


010662 


MUX3B: 


MUX3C: 


010606 MUX3D: 


MUX3E : 


MUX3F : 





@DMBCSR 
#340,PS 
#8. ,R0 


R 
#CLRMUX ,@DMBCSR 
#8. Re 


R1,@DMBCSR 
#RS ,@DMBLSR 
_—— 
@DMBLSR ,R4 
@DMBCSR,R3 
#177760,R3 
R1,R3 

MUX3C 
#RS,R5 


R5,R4 
MUX3D 


#STEP. @DMBCSR 
MUX3B 

RS 

Ri ,@DMBCSR 
@DMBLSR 

#0 
@DMBLSR,R4 

RG 

MUX3F 





SEQ 0035 


sVERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN 
:BE SET AND CLEARED FOR SELECTED LINE 


REFERENCE DESIGNATION 
; CLEAR 


up rete STATUS REGISTER 


L 
sENABLE INTE 


R 
SET UP TO TEST 8 FUNCTION FLIP-FLOP 
START AT LINE 0 


SELECT LINE TO BE TESTED 
SET REQUEST TO SEND FUNCTION FLIP-FLOP 


READ LINE STATUS REGISTER 
;READ CONTROL 


STATUS REGISTER 
TED BITS 
ER=SELECTED LINE NUMBER 


:I1F LINE NUMB P 
EXCEPT REQUEST TO SEND FUNCTION FLIP FLOP 


:TO BE SET 
COMPARE EXPECTED AND RECEIVED 


sRESUL 
LINE STATUS ERROR 


sEXAMINE NEXT LINE 


SET LINE COUNTER TO SELECTED LINE 
CLEAR REQUEST TO SEND FLIP FLOP 
;DELAY FOR CABLE 


: 0 
READ LINE STATUS REGISTER 
WAS REQUEST TO SEND FUNCTION FLIP FLOP 


7 CLEAR 
NO, LINE STATUS ERROR 
CHECK FOR LOOP ON SAME DATA 


sSELECT NEXT LINE 
ePenTing ft LINE COUNT 


CONTINU IF NOT DONE 
CHECK FOR ITERATIONS, LOOP 
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VERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN 


Of 4 sBE SET AND CLEARED FOR SELECTED LINE 

1619 005222 131: REFERENCE DESIGNATION 

1620 005222 005077 010526 MUX4: CLR @DMBCSR CLEAR CONTROL STATUS REGISTER 

1621 005226 042737 000340 177776 BIC #340,PS ENABLE INTERRUPTS 

1622 005234 012700 000010 MOV #8. ,RO SET UP TO TEST 8 FUNCTION FLIP-FLOP 
1623 005240 005001 CLR R1 zSTART AT LINE 0 

1624 005242 012777 002000 010504 MUX4A: MOV #CLRMUX ,@DMBCSR 

1625 005250 012702 000010 MOV *e 

1626 005254 010177 010474 MOV R71, @DMBCSR SELECT LINE TO BE TESTED 

1627 005260 012777 000010 010470 MOV #SECTX,@DMBLSR SET SECONDARY TRANSMIT FUNCTION FLIP-FLOP 
1628 005266 005077 010462 CLR @DMBCSR 

1629 005272 005005 MUX4B: CLR R 

1630 005274 017704 010456 MOV @DMBL SR ,R4 READ LINE STATUS REGISTER 

1631 005300 117703 010450 MOVB @DMBCSR R53 sREAD CONTROL STATUS REGISTER 

1632 005304 042703 177760 BIC #177760,R3 CLEAR UNWANTED BITS 

1633 005310 020103 CMP R1,R3 21F LINE NUMBER=SELECTED LINE NUMBER, 
1634 005312 001002 BNE MUX4C sEXCEPT SECONDARY TRANSMIT FUNCTION FLIP FLOP 
ieee 005314 012705 000010 MOV #SECTX.RS TO ee SeT 

1637 005320 020504 MUX4C: CMP R5.R4 : COMPARE EXPECTED AND RECEIVED 

1638 005322 001403 BEQ MUX4D sRESUL 

1639 005324 104001 ERRORL sLINE STATUS ERROR 

1640 005326 104003 SCOPEF 

1641 5330 005332 MUX4D 

1642 005332 052777 000400 010414 MuUX4D: BIS #STEP,@DMBCSR sEXAMINE NEXT LINE 

1643 005340 005302 DEC R2 

1644 005342 001353 BNE MUX4B 

1645 005344 005005 CLR R5 

1646 5346 010177 010402 MUX4E: MOV R1,@DMBCSR 

1647 005352 010103 MOV R1,R3 SET LINE COUNTER TO SELECTED LINE 
1648 005354 005077 010376 CLR @DMBLSR CLEAR SECONDARY TRANSMIT FLIP FLOP 
1649 5360 105227 000000 INCB #0 DELAY FOR CABLE 

1650 005364 001375 BNE 74 :DITTO 

1651 5366 017704 010364 MOV @DMBL SR ,R4 READ LINE STATUS REGISTER 

1652 005372 005704 TST R4 sWAS SECONDARY TRANSMIT FUNCTION FLIP FLOP 
1653 005374 001401 BEQ MUX4F > CLEARED 

1654 005376 104001 ERRORL NO, LINE STATUS ERROR 

1655 005400 104003 MUX4F: SCOPEF CHECK FOR LOOP ON SAME DATA 

1656 005402 005242 MUX4A 

1657 005404 005201 INC R1 SELECT NEXT LINE 

1658 5406 005300 DEC RO :DECREMENT LINE COUNT 

1659 005410 001314 BNE MUX4A CONTINU IF NOT DONE 

1660 005412 104002 SCOPE :CHECK FOR ITERATIONS, LOOP 


ere 
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1661 e 4 oe 
166 sVERIFY THAT CLEAR TO SEND AND CARRIER ARE SET IF “LINE ENABLE 
ier sAND TERMINAL ARE SET FOR SELECTED LINE. 

1665 005414 T32: REFERENCE DESIGNATION 
1666 005414 005077 010334 MUXS: CLR @DMBCSR CLEAR CONTROL REGISTER 
1667 005420 042737 000340 177776 BIC #340,PS i ENABLE INTERRUPTS 

1668 005426 012700 000010 MOV #8.,RO SET UP TO TEST 8 LINES 
1669 005432 005001 CLR R1 sSTART AT LINE 0 

1670 54 915706 000010 MUXSA: MOV #8. ,R2 38 LINES 

1671 005440 010177 010310 MOV R1,aDMBCSR sSELECT A LINE 

1672 005444 012777 000003 010304 MOV #LINENA+TRMRDY,@DMBLSR SET LINE ENABLE +TRMRDY 
1673 005452 005077 010276 CLR @DMBCSR CLEAR CONTROL REGISTER 
1674 005456 005005 MUX5B: CLR R5 CLEAR EXPECTED RESULT 
1675 005460 017704 010272 MOV @DMBLSR ,R4 sREAD LINE STATUS 

1676 005464 117703 010264 MOVB @DMBCSR ,R3 READ LINE NUMBE 

1677 005470 042703 177760 BIC #177760,R3 CLEAR UNWANTED BITS 
1678 005474 020103 cre R1,R3 :IF RECEIVED he Aaa LINE 
1679 005476 001002 BNE MUX5C sEXPECT LINE ENABLE AND 

1680 005500 012705 000143 MOV #LINENA+TRMRDY+CO+CS,R5 

1681 :CLEAR TO SEND AND CARRIER ARE SET 
1682 005504 020405 MUXSC: CMP R4,R5 ARE EXPECTED AND 

1683 005506 001403 BEQ MUXSD SRECEIVED RESULTS 

1684 005510 104001 ERRORL LINE STATUS ERROR 

1685 005512 104003 SCOPEF 

1686 005514 005516 MUX5D 
1687 005516 052777 000400 010230 MuUXSD: BIS #STEP ,aDMBCSR UPDATE LINE COUNTER 
1683 005524 005302 DEC R2 CONTINUE IF ALL CHECKS 
1689 005526 001353 BNE MUX5B sARE NOT DONE FOR THIS LINE 
1690 005530 012705 000001 MOV #LINENA,RS5 sEXPECT LINE ENABLE 
1691 005534 010103 MUXSE: MOV R1,R3 20N SELECTED LINE 
1692 005536 010177 010212 MOV R1,@DMBCSR SELECT LINE 
1693 005542 042777 000002 010206 BIC #TRMRDY ,@DMBLSR CLEAR TERMINAL 
1694 005550 105227 000000 INCB #0 :DELAY FOR CABLE 
1695 005554 001375 BNE -4 :DITTO 
1696 005556 017704 010174 MOV @DMBL SR ,R4 sREAD LINE STATUS REGISTER 
1697 005562 020504 R5.R4 LINE ENABLE SHOULD BE 
1698 005544 001401 
1699 005566 104001 ERRORL LINE STATUS ERROR 
1700 00557C 104003 MUXSF: SCOPEF :CHECK FOR LOOP ON SAME DATA 
1701 005572 005434 MUX5A 
1702 005574 008204 INC R1 UPDATE LINE NUMBER 
1703 005576 005077 010154 CLR @DMBLSR aia LINE STATUS REGISTER 
1704 005602 005300 DEC RO ONTINUE IF ALL LINES NOT 
17 005604 001313 BNE MUXSA 
1706 005606 104002 SCOPE “CHECK FOR ITERATIONS, LOOP 


CMP sONLY LI 
BEQ MUXSF swe’s THIS LINE 
| 
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1707 a, 
1708 ;VERIFY THAT RING IS SET IF "LINE ENABLE 
1709 SAND REQUEST TO-SEND ARE SET FOR SELECTED LINE. 
1711 005610 133: ;REFERENCE DESIGNATION 
1712 005610 005077 010140 MUX6: CLR — @DMBCSR :CLEAR CONTROL REGISTER 
1713 005614 042737 000340 177776 BIC #340, PS ZENABLE INTERR 
1714 005622 012700 000010 MOV #8. .RO {SET UP 10 TEST 8 LINES 
1715 005626 005001 CLR RI ;START AT LINE 0 
1718 005630 012702 900010 MUX6A: MOV = - #8. ,R2 :8 LINES 
1717 005634 010177 010114 MOV — RT, @DMBCSR ;SELECT A LINE 
1718 005640 012777 000005 010110 MOV - #LINENA+RS, @DMBLSR SET LINE ENABLE +RS 
1719 005646 005077 010102 CLR @DMBCSR CLEAR CONTROL REGISTER 
1720 005652 005005 MUX6B: CLR = RS iCLEAR EXPECTED RESULT 
1721 005654 017704 019076 MOV. — @DMBLSR.R4 ;READ LINE STATUS 
1722 005660 117703 010070 MOVB  @DMBCSR-R3 :READ LINE NUMBER 
1723 005664 042703 177760 BIC —-#177760.R3 CLEAR UNWANTED BITS 
1724 005670 020103 CMP R1,R3 :IF RECEIVED LINE=SELECTED LINE 
1725 005672 001002 BNE  — MUX6C ZEXPECT LINE ENABLE AND 
1726 005674 012705 000205 MOV - #LINENA+RS*RING,RS 
1727 :RING IS SET 
1728 005700 020405 MUX6C: CMP = -RGRS COMPARE EXPECTED AND 
1729 005702 001403 BEQ  — MUX6D ;RECEIVED RESULTS 
1730 005704 104001 ERR ZLINE STATUS ERROR 
1731 005706 104003 SCOPEF 
1732 005710 005712 MUX 
1733 005712 052777 000400 010034 MUX6D: BIS  #STEP,@DMBCSR :UPDATE LINE COUNTER 
1734 005720 005302 DEC = R2 CONTINUE IF ALL CHECKS 
1735 005722 001353 BNE MUX6B ;ARE_NOT DONE FOR THIS LINE 
1736 005724 012705 000001 MOV  - #LINENA,RS ZEXPECT LINE ENABLE 
1737 005730 010103 MUX6E: MOV = R1,R3 30N SELECTED LINE 
1738 005732 010177 010016 MOV -—-R1, @DMBCSR :SELECT LINE 
1739 005736 042777 000004 010012 BIC #5, @DMBLSR CLEAR REQUEST 10 SEND 
1740 005744 105227 000000 INCB #0 ;DELAY FOR CABLE 
1741 005750 001375 BNE = .=4 TTO 
1742 005752 017704 010000 MOV  @DMBLSR.R4 TREAD LINE STATUS REGISTER 
1743 005756 020504 CMP RSG SONLY LINE ENABLE SHOULD BE 
1744 005760 001401 BEQ  —- MUK6F :SET ON THIS LINE 
1745 005762 104001 ERRORL SLINE STATUS ERROR 
1746 005764 104003 MUX6F: SCOPEF :CHECK FOR LOOP ON SAME DATA 
1747 005766 0056 MUX6A 
1748 005770 005201 INC RI :UPDATE LINE NUMBER 
1749 005772 005077 007760 CLR @DMBLSR CLEAR LINE STATUS REGISTER 
1750 005776 005300 DEC = RO CONTINUE IF ALL LINES NOT 
1751 001313 MUX6A : TESTED 
1752 006002 104002 SCOPE CHECK FOR ITERATIONS, LOOP 
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134: 
MUX7: 


MUX7A: 


MUX7B: 


MUX7C: 


MUX7D: 


MUX7E: 


MUX7F : 
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sVERIFY THAT SECONDAnY RECEIVE IS SET IF ‘LINE ENABLE’’ 
sAND SECONDARY TRANSMIT ARE SET FOR SELECTED LINE. 


REFERENCE DESIGNATION 


@DMBCSR CLEAR CONTROL REGISTER 
#340,PS ENABLE INTERRUPTS 

#8. RO SET UP y TEST 8 LINES 
R1 SSTART AT LINE 0 


#8. 38 LINES 

R1,aDMBCSR SELECT A LINE 

#LINENA+SECTX,@DMBLSR SET LINE ENABLE +SECTX 

@DMBCSR CLEAR CONTROL REGISTER 
CLEAR Line Stary es 


eta R4 READ L 

@DMBCSR ,R3 sREAD LINE 

#177760, RS CLEAR UNWANTED BITS 

R1,R3 IF RECEIVED LINE=SELECTED LINE 
MUX7C SEXPECT LINE ENABLE AND 
#LINENA+SECTX*+SECRX,R5 


SECONDARY RECEIVE IS SET 
R4,R5 COMPARE EXPECTED AND 
MUX7D RECEIVED RESULTS 

LINE STATUS ERROR 


#STEP,@DMBCSR UPDATE LINE COUNTER 
R2 2 CONTINUE IF ALL CHECKS 
MUX7B ARE NOT DONE FOR THIS LINE 
#LINENA,RS SEXPECT LINE ENABLE 
R1.R 7O0N SELECTED LINE 
R1 “ADMBCSR >SELECT LINE 
#SECTX,@DMBLSR CLEAR SECONDARY TRANSMIT 
#0 :DELAY FOR CABLE 

=4 DITTO 
@DMBLSR,R4 READ LINE STATUS REGISTER 
R5,R4 ONLY LINE ENABLE SHOULD BE 
MUX7F SET ON THIS LINE 


SLINE STATUS ERROR 
CHECK FOR LOOP ON SAME DATA 


R1 UPDATE LINE NUMBER 
@DMBL SR SCLEAR LINE STATUS REGISTER 
a ;CONT INUE IF ALL LINES NOT 


ED 
© CHECK FOR ITERATIONS, LOOP 
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1799 La! ee 
1800 sVERIFY THAT “'CLEAR MULTIPLXER’’ CLEARS ALL MULTIPLEXER 
1803 sFUNCTION FLIP-FLOPS 
1803 006200 135: REFERENCE DESIGNATION 
1804 006200 005077 007550 MUX8: CLR @DMBCSR ZCLEAR CONTROL REGISTER 
1805 006204 042737 000340 177776 BIC #340,PS ;ENABLE INTERRUPTS 
1806 006212 012700 000010 MOV #8. ,RO ;SET UP TO TEST 8 LINES 
1807 006216 012777 000017 007532 MUX8A: MOV #17, aD0MBLSR ;WRITE 1S INTO a MULTIPLEXER 
1808 006224 052777 000400 007522 BIS #STEP ,@DMBCSR FUNCTION FLIPFLOPS 
1809 006232 005300 DEC RO 
1810 006234 001370 BNE MUX8A 
1811 0062 005003 CLR R3 :SET UP FOR 8 LINES 
1812 006240 012700 000010 MOV #8. ,RO 
1813 006244 012777 002000 007502 MUX8B: MOV #CLRMUX .@DMBCSR :CLEAR MULTIPLEXER 
1814 006252 010377 007476 MUX8C: MOV R3,a SEL cT 
1815 006256 017704 007474 MOV SDMBL SR. a ;READ LINE STATUS REGISTER 
1816 006262 005005 CLR R5 3E T 
1817 006264 005704 TST R4 3WAS LINE STATUS REGISTER CLEARED 
1818 006266 001403 BEQ MUX8D 
1819 006270 104001 ERRORL LINE STATUS ERROR 
1820 006272 104003 SCOPEF CHECK FOR LOOP ON SAME DATA 
1821 006274 006244 MUX88 
1822 006276 005205 MUX8D: INC R5 EXPECT LINE ENABLE 
1823 006300 052777 000001 007450 BIS #LINENA,@DMBLSR SET LINE ENABLE ON SELECTED LINE 
1824 006306 017704 007444 MOV @DMBL SR ,R4 READ LINE STATUS REGISTER 
1825 006312 020504 cMP R35 ,R4 31S ANYTHING BUT LINE ENABLE SET 
1826 006314 001403 BEQ MUX8E 
1827 006316 104001 ERRORL sLINE STATUS ERROR 
1828 006320 104003 SCOPEF CHECK FOR LOOP ON SAME DATA 
1829 006322 006244 MUX8B 
1830 006324 005203 MUX8E: INC R3 UPDATE LINE NUMBER 
1831 006326 005077 007424 CLR @DMBLSR :CLEAR CURRENT LINE 
1832 006332 005300 DEC RO 3 CONT INUE IF ALL LINES NOT 
1833 006334 001346 BNE MUX8C TESTED 
ieee 006336 104002 SCOPE ;CHECK FOR ITERATIONS, LOOP 
1836 
1837 sWRITE 1°S INTO ALL SCANNER MEMORY LOCATIONS 
1838 SET "LINE ENABLE FOR ALL LINES 
4 44 ;VERIFY THAT AN INTERRUPP OCCURS FOR EACH LINE 
1841 006340 136: REFERENCE DESIGNATION 
1842 006340 012777 002000 007406 SCNT1: MOV #CLRMUX , @DMBCSR CLEAR ALL MULTIPLEXER FLIPFLOPS 
1843 006346 005077 007402 CLR @DMBCSR ;CLEAR CONTROL REGISTER 
1844 006352 042737 000340 177776 BIC + aad PS ENABLE INTERRUPTS 
1845 006360 012700 000010 MOV SET UP TO WRITE 1°S INTO 
1846 006 012777 001007 007362 MOV mmAINTS7 appar zALL_SCANNER MEMORY LOCATION 
1847 006372 052777 000400 007354 SCNTIA: BIS #STEP,@DMBCSR sWRITE A LOCATION 
1848 006400 012777 000001 007350 MOV #LINENA, aDMBLSR sLET “LINE ENABLE*’ 
1849 006406 005300 DEC RO 
1850 10 001370 BNE sera . eeo,e te,0e te, 66, ee,e . 
1851 006412 012705 070340 MOV #70340,R5 sEXPECT *'DONE’'+"SCNENA'‘+'‘COF*'+*'CSF'"+" SECRXF'* 
1852 006416 012777 006516 007324 MOV #SCNT1C ,@DMBVEC SET UP LOCAL INTERRUPT SERVICE 
1853 006424 013777 177776 007320 MOV PS, @DMBLVL sSERVICE AT LEVEL 7 
1854 006432 012700 000010 MOV #8. ,RO 
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007310 


177776 


177776 


007210 


007166 


177776 
007150 
007140 


007126 
007120 


177776 


177776 


SCNT1B: 


SCNTIC: 


SCNT1D: 


137: 
SCNT2: 


SCNT2A: 


SCNT2B: 
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SET INTERRUPT ENABLE 
LOCK OUT INTERRUPTS 
; T_ SCANNER 


ENABLE INTERRUPTS 


INTERRUPT DID NOT OCCUR 


CONTROL STATUS ERROR 
CHECK FOR LOOP ON SAME DATA 


2 INTERRUPT OCCURED, REPOSITION STACK 
READ CONTROL STAT 
ARE EXPECTED AND RECEIVED 
REGISTERS S_THE SAME 

LINE STATUS ERROR 
CHECK FOR LOOP WITH CURRENT DATA 


CLEAR SCAN ENABLE AND DONE 
UPDATE EXPECTED RESULT 
:CONTINUE IF NOT DONE 
CHECK FOR ITERATIONS, LOOP 


FUNCTION FLIP-FLOPS 


REFERENCE DESIGNATION 
3WRITE 1S INTO ALL 
:CLEAR 4! ge 
ZMULTIPLEXER F 


UNCTION 
NABLE TELETYPE INTERRUPTS 
;FLIPFLOPS 


CLEAR SCANNER MEMORY 
WAIT FOR CLEAR CYCLE TO COMPLETE 


SET UP_TO TEST 8 LINES 
FIRST EXPECTED RESULT 
7SET UP LOCAL INTERRUPT RETURN 


SET INTERRUPT ENABLE 
LOCK OUT INTERRUPTS 


: CANNER 
idk sae 
: PROGRAM ot es HERE 


21-0CT-81 
MOV #INTENA‘7, ,@DMBCSR 
BIS 
BIS FEChENL. @DMBCSR 
BIC 340,PS 
TSTB  aDMBCSR 
BPL a4 
BIS #340,PS 
MOV @DMBCSR,R4 
ERRORC 
SCOPEF 
SCNTI 
BR SCNT1D 
POP2sP 
MOV @DMBCSR,R4 
CMP R5,R4G 
BEQ SCNT1D 
ERRORC 
SCOPEF 
SCNT1 
BIC #SCNENA+DONE , @DMBCSR 
INC R5 
DEC RO 
BNE SCNT1B 
SCOPE 
:WRITE 1°S INTO ALL MULTIPLEXER 
[CLEAR SCANNER MEMORY 
[VERIFY THAT AN INTERRUPT OCCURS FOR EACH LINE 
MOV #8. ,RO 
MOV #CLRMUX ,a@DMBCSR 
CLR @DMBCSR 
BIC #340,PS 
MOV #17,aDMBLSR 
BIS #STEP, aDMBCSR 
DEC RO 
BNE SCNT2A 
MOV ACLRSCN, @DMBCSR 
BIT #BUSY, a@aOMBCSR 
BNE i 
MOV #8. RO 
MOV #170340,R5 
MOV #SCNT2C . @DMBVEC 
MOV PS, aDMBLVL 
MOV #INTENA+7, @DMBCSR 
BIS #36 
BIS #SCNENA, @DMBCSR 
BIC #340,PS 
TSTB aDMBCSR 
BPL wre 
BIS #340,PS 
MOV @DMBCSR,R4 
ERRORC 


T 
EINTERRUPT DID NOT OCCUR 


SEQ 0041 
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1911 006734 104003 SCOPEF CHECK FOR LOOP ON CURRENT DATA 
a 0067 006554 SCNT2 
1913 006740 000410 BR SCNT2D ; CONTINUE 
1914 006742 022626 SCNT2C: POP2SP : INTERRUPT OCCURED, RESTORE STACK 
1915 006744 017704 007004 MOV @DMBCSR ,R4 sREAD CONTROL STATUS REGISTER 
1916 006750 020504 CMP P :COMPARE TO EXPECTED RESULT 
1917 006752 001403 BEQ SCNT2D 
1918 006754 104000 ERRORC CONTROL STATUS ERROR 
1919 006756 104003 SCOPEF :CHECK FOR LOOP ON CURRENT DATA 
1920 006760 006554 SCNT2 
1921 006762 042777 000240 006764 SCNT2D: BIC #SCNENA*+DONE , @DMBCSR CLEAR SCAN ENABLE AND DONE 
1922 006770 005205 INC R5 UPDATE EXPECTED RESULT 
1923 006772 005300 DEC RO CONTINUE IF ALL 
1924 006774 001335 BNE SCNT2B sLINES NOT TESTED 
1982 006776 104002 SCOPE CHECK FOR ITERATIONS, LOOP 
1927 
1928 SINGLE LINE CABLE TEST 
1929 sFOR USE WITH THE H317-M DISTRIBUTION PANEL 
193 7H3256 TEST CONNECTORS REPLACE MODEM CABLES 
1932 
1933 
1934 007000 7100: REFERENCE DESIGNATION 
1935 007000 012737 007020 002150 STRLIN: MOV #STRLNA,KRET SET UP FOR NEW LINE SELECTION 
1936 007006 042737 000340 177776 BIC #340,PS s ENABLE INTERRUPTS oa 
1937 007014 104004 TYPE i TYPE "‘SINGLE LINE CABLE TEST 
1938 007016 017517 ML INE 
1939 007020 104013 STRLNA: INSTRG GET LINE NUMBER 
1940 007022 017552 MLINEI 
1941 007024 000000 0 
1942 007026 00000 7 
1943 007030 016042 LINE 
1944 007032 104004 TYPE 
iz 017514 MCRLF 
1947 VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN 
1 2BE SET AND CLEARED FOR SELECTED LINE 
1950 007036 7101: sREFERENCE DESIGNATION 
1951 007036 005077 006712 MUX11: CLR @DMBCSR CLEAR CONTROL STATUS REGISTER 
1952 007042 042737 000340 177776 BIC #340,PS sENABLE INTERRUPTS 
1953 007050 013701 016042 MOV LINE ,R1 
1954 007054 012777 002000 006672 MUX11A: MOV #CLRMUX ,@DMBCSR 
1955 007062 att 000010 MOV #8.,R 
1956 007 010177 006662 MOV R1,@DMBCSR SELECT LINE TO BE TESTED 
1957 007072 012777 000001 006656 MOV #LINENA,@DMBLSR :SET LINE ENABLE FUNCTION FLIP-FLOP 
1958 71 005077 006650 CLR @DMBCSR 
1959 007104 005005 MUX11B: CLR R5 
1960 71 9107008 006644 MOV @DMBL SR ,R4 zREAD LINE STATUS REGISTER 
1961 007112 117703 006636 MOVB @DMBCSR ,R3 sREAD CONTROL STATUS REGISTER 
1962 007116 042703 177760 BIC #177760,R5 CLEAR UNWANTED BITS 
1963 007122 020103 CMP R1,R3 :IF LINE NUMBER=SELECTED LINE NUMBER, 
1964 007124 001002 BNE MUX11C sEXCEPT LINE ENABLE FUNCTION FLIP FLOP 
1ae2 007126 012705 000001 MOV #LINENA,RS vo Or tet 





E 4 
CZKMGAO_DM11-BA MODEM CONTR MACY11 30A(1052) 21-OCT-81 05:36 PAGE 43 


CZKMGA.P11 20-OCT-81 17: SEQ 0043 
1967 007132 020504 MUX11C: CMP R5,R4 COMPARE EXPECTED AND RECEIVED 
1968 007134 1403 BEQ MUX11D 3 
1969 0071 104001 ERRORL ;LINE STATUS ERROR 
1970 007140 104003 SCOPEF 
1971 007142 007144 MUX11D 
197 7144 052777 000400 006602 MUX11D: BIS #STEP ,aDMBCSR sEXAMINE NEXT LINE 
197 7152 ©0530 DEC R 
1974 007154 00135 BNE MUX11B 
1975 007156 005005 CLR 
1976 007160 010177 006570 MUXT1E: MOV R1,aDMBCSR 
1977 007164 010103 MOV R1,R3 SET LINE COUNTER TO ey LINE 
1978 0071 005077 006564 CLR @DMBLSR ;CLEAR LINE ENABLE FLIP FLOP 
1979 007172 105227 000000 INCB #0 ;DELAY FOR CABLE 
1980 007176 001375 BNE 274 0 
1981 007200 017704 006552 MOV @DMBLSR ,R4 TREAD LINE STATUS REGISTER 
1982 007204 005704 TST R4 ;WAS LINE ENABLE FUNCTION FLIP FLOP 
1983 007206 001401 BEQ MUX11F ARED 
1984 007210 104001 ERRORL NO, LINE STATUS ERROR 
1985 007212 104002 MUX11F: SCOPE ;CHECK FOR ITERATIONS, LOOP 
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MUX12: 


MUX12A: 


C 
MUX12B: 


MUX12C: 


MUX12D: 


MUX12E : 
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@DMBCSR 
#340,PS 


LINE ,R1 

a teams 
R1,@DMBCSR 
#TRMRDY ,@DMBLSR 
@DMBCSR 

R5 

@DMBLSR RS 


@DMBCSR ,R3 
ai7iteee »R3 


MUX12C 
#TRMRDY RS 
R5 ,R4 
MUX12D 


#STEP, aDMBCSR 
MUX 28 

Rt ,@DMBCSR 

aD MBL SR 
SDMBLSR..RG 
MUX 2F 
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VERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN 
sBE SET AND CLEARED FOR SELECTED LINE 


REFERENCE DESIGNATION 
LEAR CONTROL STATUS REGISTER 
ENABLE INTERRUPTS 


sSELECT LINE TO BE TESTED 
SET TERMINAL READY FUNCTION FLIP-FLOP 


READ LINE STATUS REGISTER 
;READ CONTROL STATUS REGISTER 

;CLEAR UNWANTED BITS 

7IF LINE NUMBER=SELECTED LINE NUMBER, 
EXCEPT TERMINAL READY FUNCTION FLIP FLOP 


:TO BE SET 

COMPARE EXPECTED AND RECEIVED 
:RESUL 

LINE STATUS ERROR 


sEXAMINE NEXT LINE 


SET LINE COUNTER TO SELECTED LINE 
: CLEAR Ji cape pg READY FLIP FLOP 
:DELAY FOR CABLE 
;READ LINE STATUS REGISTER 

+t Baca READY FUNCTION FLIP FLOP 


: CLEARE 
:NO, LINE STATUS ERROR 
CHECK FOR ITERATIONS, LOOP 
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2025 VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN 

$058 3BE SET AND CLEARED FOR SELECTED LINE 

2028 007372 7103: sREFERENCE DESIGNATION 

2029 007372 005077 006356 MUX13: CLR @DMBCSR sCLEAR CONTROL STATUS REGISTER 

2030 007376 irate 000340 177776 BIC #340.PS ;ENABLE INTERRUPTS 

2031 007404 013701 016042 MOV LINE ,R1 

2032 007410 012777 002000 006336 MUX13A: MOV #CLRAUK, @DMBCSR 

2033 007416 012702 000010 MOV #8. 

20 007422 010177 006326 MOV Ri aDMBCSR SELECT LINE TO BE TESTED 

2035 007426 012777 000004 006322 MOV #RS ,@DMBLSR SET REQUEST 70 SEND FUNCTION FLIP-FLOP 
007434 005077 006314 CLR @DMBCSR 

2037 007440 005005 MUX13B: CLR 

2038 007442 017704 006310 MOV @DMBL SR ,R4 READ LINE STATUS REGISTER 

2039 007446 117703 006302 MOVB @DMBCSR,R3 sREAD CONTROL STATUS REGISTER 

2040 007452 042703 177760 BIC #177760,R3 7CLEAR UNWANTED BITS 

2041 007456 020103 CMP R1,R3 7I1F LINE NUMBER=SELECTED LINE NUMBER, 

2042 007460 1 BNE MUX13C EXCEPT REQUEST TO SEND FUNCTION FLIP FLOP 

Ser 007462 012705 000004 MOV #RS RS TO Gf set 

2045 007466 020504 MUX13C: CMP R5,R4 COMPARE EXPECTED AND RECEIVED 

2046 007470 001403 BEQ MUX13D sRESULTS 

2047 007472 104001 ERRORL LINE STATUS ERROR 

2048 007474 104003 SCOPEF 

2049 007476 0075 MUX13D 

2050 007500 052777 000400 006246 MUX13D: BIS #STEP ,aDMBCSR sEXAMINE NEXT LINE 

2051 007506 005302 DEC R 

2052 007510 001353 BNE MUX13B 

2053 007512 005005 CLR R5 

2054 907514 010177 006234 MUX13E: MOV R1,@DMBCSR 

2055 007520 010103 MOV R1,R3 SET LINE COUNTER TO SELECTED LINE 

2056 007522 005077 006230 CLR @DMBLSR CLEAR REQUEST TO SEND FLIP FLOP 

2057 007526 105227 000000 INCB #0 :DELAY FOR CABLE 

2058 007532 001375 BNE 274 TTO 

2059 007534 017704 006216 MOV @DMBLSR ,R4 ;READ LINE STATUS REGISTER 

2060 007540 005704 TST R4 WAS REQUEST TO SEND FUNCTION FLIP FLOP 

2061 007542 001401 BEQ MUX 13F ; CLEARED 

2062 007544 104001 ERRORL 3NO, LINE STATUS ERROR 


2063 007546 104002 MUX13F: SCOPE CHECK FOR ITERATIONS, LOOP 
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SEQ 0046 


VERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN 
3BE SET AND CLEARED FOR SELECTED LINE 


MUX14E: MOV 


MUX14F : 


ERRORL 
SCOPE 


@DMBCSR 
#340,PS 


R1,aDMBCSR 
#SECTX, @DMBLSR 
aDMBCSR 
@DMBLSR RS 
@DMBCSR.R3 
#177760,R3 
R1,R3 
MUX14C 
#SECTX,RS 


R5,R4 
MUX14D 


#STEP, @DMBCSR 
MUX14B 
R1,aDMBCSR 
R1,R3 

@DMBLSR 

#0 
@DMBLSR,R4 
MUX14F 


NE ,R1 
ACLRAUX. -@DMBCSR 


REFERENCE DESIGNATION 
CLEAR CONTROL . REGISTER 
;ENABLE INTERRUPTS 


;SELECT LINE TO BE TESTED 


zSET SECONDARY TRANSMIT FUNCTION FLIP-FLOP 


READ LINE STATUS REGISTER 
;READ CONTROL STATUS REGISTER 
;CLEAR UNWANTED BITS 


7 IF LINE NUMBER=SELECTED LINE NUMBER, 
‘EXCEPT SECONDARY TRANSMIT FUNCTION FLIP FLOP 


:TO BE SET 
7COMPARE EXPECTED AND RECEIVED 


;RESUL 
ZLINE STATUS ERROR 


EXAMINE NEXT LINE 


SET LINE COUNTER TO SELECTED LINE 


CLEAR SECONDARY TRANSMIT FLIP FLOP 
ELAY FOR CABLE 


[READ LINE STATUS REGISTER 
WAS SECONDARY TRANSMIT FUNCTION FLIP FLOP 


7 CLEAR 
NO, LINE STATUS ERROR 
CHECK FOR ITERATIONS, LOOP 
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2103 a 
2104 ;VERIFY THAT CLEAR TO SEND AND CARRIER ARE SET IF ‘LINE ENABLE 
105 SAND TERMINAL ARE SET FOR SELECTED LINE. 

2107 007726 1105: ;REFERENCE DESIGNATION 

2108 007726 005077 006022 MUX15: CLR @DMBCSR ZCLEAR CONTROL REGISTER 
2109 007732 042737 000340 177776 BIC #340,PS SENABLE INTERRUPTS 

2110 007740 013701 016042 MOV LINE, R1 

2111 007744 012702 000010 MUX1SA: MOV #8. ,R2 ;8 LINES 

2112 007750 010177 006000 MOV —«R1, @DMBCSR :SELECT A LINE 

2113 007754 012777 000003 005774 MOV #LINENA*TRMRDY,@DMBLSR SET LINE ENABLE +TRMRDY 

2114 007762 005077 005766 CLR aDMBCSR ;CLEAR CONTROL REGISTER 
2115 007766 005005 MUX15B: CLR RS CLEAR EXPECTED RESULT 

2116 007770 017704 005762 MOV. — @DMBLSR.R4 :READ LINE STATUS 

2117 007774 117703 005754 MOVB @DMBCSR.R3 [READ LINE NUMBER 

2118 01 042703 177760 BIC -#177760.R3 ZCLEAR UNWANTED BITS 

2119 010004 020103 CMP R13 iF RECEIVED LINE-SELECTED LINE 
2120 010006 001002 BNE MUK15C ZEXPECT LINE ENABLE AN 

2121 010010 012705 000143 MOV ALINENA+TRMRDY+CO*CS,R5 

2122 ;CLEAR TO SEND AND CARRIER ARE SET 
2123 010014 020405 MUX15C: CMP R4,R5 > COMPARE EXPECTED AND 

2124 010016 001403 BEQ  — MUK15D SRECEIVED RESULTS 

2125 010020 104001 ERRORL ;LINE STATUS ERROR 

2126 010022 104003 SCOPEF 

2127 010024 010026 MUX15D 

2128 010026 052777 000400 005720 MuUX15D: BIS #STEP ,@DMBCSR ; UPDATE LINE COUNTER 

2129 010034 005302 DEC R2 sCONTINUE IF ALL CHECKS 
2130 010036 001353 BNE  MUX15B ZARE NOT DONE FOR THIS LINE 
2131 010040 012705 000001 MOV ALINENA,RS SEXPECT LINE ENABLE 

2132 010044 010103 MUXI5E: MOV —sRTR3 Z0N SELECTED LINE 

2133 010046 010177 005702 MOV —«R1 @DMBCSR TSELECT LINE 

2134 010052 042777 000002 005676 BIC #TRMRDY @DMBLSR ZCLEAR TERMINAL 

2135 010060 105227 000000 INCB #0 :DELAY FOR CABLE 

2136 010064 001375 BNE ~4 0 

2137 010066 017704 005664 MOV @DMBLSR,R4 TREAD LINE STATUS REGISTER 
2138 010072 020504 CMP RSG ZQNLY LINE ENABLE SHOULD BE 
2139 010074 001401 BEQ = MUX TSF :SET ON 

2140 010076 104001 ERRORL PINE STATUS. ERROR 

2141 010100 104002 MUX15F: SCOPE :CHECK FOR ITERATIONS, LOOP 
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2143 sVERIFY THAT RING IS SET IF “LINE ENABLE’’ 

site zAND REQUEST TO SEND ARE SET FOR SELECTED LINE. 

2146 010102 7106: REFERENCE DESIGNATION 
2147 010102 005077 005646 MUX16: CLR @DMBCSR CLEAR CONTROL REGISTER 
2148 010106 042737 000340 177776 BIC #340,PS ENABLE INTERRUPTS 

2149 010114 013701 916042 MOV LINE ,R1 

2150 010120 012702 000010 MUX16A: MOV #8.,R 78 LINES 

2151 010124 010377 005624 MOV R1,@DMBCSR SELECT A LINE 

2152 010130 012777 000005 005620 MOV #LINENA+RS ,@DMBLSR SET LINE ENABLE +RS 

2153 010136 005077 005612 CLR @DMBCSR CLEAR CONTROL REGISTER 
2154 010142 005005 MUX16B: CLR R5 CLEAR EXPECTED RESULT 

2155 010144 017704 005606 MOV @DMBLSR ,R4 zREAD LINE STATUS 

2156 010150 117703 005600 MOVB @DMBCSR RS sREA 

2157 010154 042703 177760 BIC #177760,R3 CLEAR UNWANTED BITS 

2158 010160 020103 CMP R1,R3 21F RECEIVED LINE=SELECTED LINE 
2159 010162 001002 BNE MUX16C sEXPECT LINE ENABLE AND 
2160 010164 012705 000205 MOV #LINENA+RS+RING,RS 

2161 sRING IS SET 

2162 010170 020405 MUX16C: CMP R4,R5 COMPARE EXPECTED AND 

2163 010172 001403 BEQ MUX16D RECEIVED RESULTS 

2164 010174 104001 ERRORL LINE STATUS ERROR 

2165 010176 10400 SCOPEF 

2166 010200 010202 MUX16D 

2167 010202 052777 000400 005544 MUX16D: BIS #STEP ,aDMBCSR UPDATE LINE COUNTER 

2168 010210 005302 DEC Re CONTINUE IF ALL CHECKS 
2169 010212 001353 BNE MUX16B : NOT DONE FOR THIS LINE 
2170 010214 012 000001 MOV #LINENA,RS5 EXPECT LINE ENABLE 

2171 010220 010103 MUX16E: MOV R1, :0N SELECTED LINE 

2172 010222 010177 005526 MOV R1,@DMBCSR SELECT LINE 

2173 010226 042777 000004 005522 BIC ARS ,ADMBLSR :CLEAR REQUEST TO SEND 

2174 010234 105227 000000 INCB #0 DELAY FOR CABLE 

2175 010240 001375 BNE 74 DITTO 

2176 010242 017704 005510 MOV @DMBLSR ,R4 READ LINE STATUS REGISTER 
2177 010246 020504 CMP R5,R4 ONLY LINE ENABLE SHOULD BE 
2178 010250 001401 BEQ MUX 16F SET ON THIS LINE 

2179 010252 104001 ERRORL sLINE STATUS ERROR 

2180 010254 104002 MUX16F: SCOPE CHECK FOR ITERATIONS, LOOP 
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2181 

$iss sVERIFY THAT SECONDARY RECEIVE IS SET IF ‘LINE ENABLE"’ 
Slee sAND SECONDARY TRANSMIT ARE SET FOR SELECTED LINE. 

2185 010256 1107: sREFERENCE DESIGNATION 

2186 010256 005077 005472 MUX17: CLR @aDMBCSR CLEAR CONTROL REGISTER 
2187 010262 042737 000340 177776 BIC #340,PS ENABLE INTERRUPTS 

2188 010270 013701 016042 MOV LINE ,R1 

2189 010274 012702 000010 MUX17A: MOV #8. ,R2 38 LINES 

2190 010300 010177 005450 MOV R1,@DMBCSR SELECT A LINE 

2191 010304 012777 000011 005444 MOV WLINENA+SECTX,@DMBLSR SET LINE ENABLE +SECTX 
2192 619312 005077 005436 CLR @DMBCSR CLEAR CONTROL REGISTER 
2193 010316 005005 MUX17B: CLR R5 CLEAR EXPECTED RESULT 
2194 010320 017704 005432 MOV @DMBLSR RS sREAD LINE STATUS 

2195 010324 117703 005424 MOVB @DMBCSR,R3 sREAD LINE R 

2196 010330 042703 177760 BIC #177760,R3 CLEAR UNWANTED BITS 

2197 010334 020103 CMP Ri ,R3 2I1F RECEIVED LINE=SELECTED LINE 
2198 010336 001002 BNE MUX17C sEXPECT LINE ENABLE AND 
2199 010340 012705 000031 MOV MLINENA+SECTX+SECKA RS 

2200 SECONDARY RECEIVE IS SET 
2201 010344 020405 MUX17C: CMP R4,R5 : COMPARE EXPECTED AND 
2202 010346 001403 BEQ MUX17D ;RECEIVED RESULTS 

2203 010350 104001 ERRORL ZLINE STATUS ERROR 

22 010352 104003 SCOPEF 

2205 010354 010356 MUX17D 

2206 010356 052777 000400 005370 MuUX17D: BIS #STEP ,aDMBCSR er LINE COUNTER 

2207 010364 005302 DEC Re ONTINUE IF ALL CHECKS 

2208 610366 001353 BNE MUX17B cARE NOT DONE FOR THIS LINE 
2209 010370 012705 000001 MOV #LINENA,RS5S EXPECT LINE ENABLE 

2210 010374 010103 MUX17E: MOV R1,R3 ON SELECTED LINE 

2211 010376 010177 909336 MOV R1,aDMBCSR ;SELECT LINE 

2212 010402 042777 000010 005346 BIC #SECTX,@DMBLSR CLEAR SECONDARY TRANSMIT 
2213 010410 105227 000000 INCB #0 ;DELAY FOR CABLE 

2214 010414 001375 BNE 74 0 

2215 010416 017704 005334 MOV @DMBL SR ,R4 TREAD LINE STATUS REGISTER 
2216 010422 020504 CMP R5,R4 ONLY LINE ENABLE SHOULD BE 
2217 010424 001401 BEQ MUX17F :SET ON THIS LINE 

2218 010426 104001 ERRORL LINE STATUS ERROR 

$530 010430 104002 MUX17F: SCOPE :CHECK FOR ITERATIONS, LOOP 
2221 :DM11-BA ON LINE TEST USING 103A TYPE MODEMS 

2222 ANSWER STATION TO Be OPERATED IN AUTO-ANSWER MODE 

2223 :THIS TEST VERIFIES THE CONNECT AND DISCONNECT SEQUENCES 
$55¢ USING THE DM11-BA TO CONTROL 103A TYPE MODEMS 

2226 

2227 

2228 010432 7200: REFERENCE DESIGNATION 
2229 010432 000005 ST103A: RESET SINITIALIZE INTERFACE 

2230 010434 012737 000340 177776 MOV #340,PS sDISABLE ALL INTERRUPTS 
2231 010442 104004 TYPE sTYPE “‘103A EM CONNECT~ 
2232 010444 016300 MT103T :DISCONNECT TEST’ 

2233 010446 022737 000176 015770 CMP #SWREG , SWR 

2234 010454 001001 BNE 1$ 

2235 010456 104025 CNTLUU 

2236 010460 012737 010476 012266 1$: MOV #T103A,FATRET :SET UP FOR FATAL ERROR 
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2237 010466 012737 010474 002150 MOV #ST103B,KRET :SET UP FOR LINE CHANGE 
2238 010474 104017 $T1038: GETLNS S INPUT ORIGINATE AN 
2239 SAND ANSWER LINE ERS 
2240 010676 104020 T103A: SETUP [SET UP TO RECEIVE INTERRUPTS 
2241 ‘WAIT FOR RING 
2242 010500 010510 T1038 'GO HERE IF RING OK 
2243 010502 010504 T103A1 :GO HERE IF NO RING 
2244 010504 104012 T103A1: ERROR [NO RING WITHIN 5 MINUTES 
3245 010506 000772 BR $11038 [SELECT NEW LINES AND REDIAL 
2267 :CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE 
2248 TIF AN INCORRECT TRANSITION OCCURS, THE PROGRAM 
2269 ‘WILL TYPE AN ERROR MESSAGE, AND THE OPERATOR 
2250 ‘WILL BE REQUESTED TO RESELECT LINES AND REDIAL 
2252 010510 104021 11038: CKRING ZCHECK FOR RING INTERRUPT 
2253 ZONLY ON ANSWER LINE 
2254 AND NO TRANSITIONS ON 
2255 : ORIGINATE LINE 
256 010512 010530 T103C 60 HERE IF TRANSITIONS 
2258 010514 010520 710381 “G0 HERE IF INCORRECT 
2259 : TRANSITION ON ANSWER LINE 
2260 010516 010524 110382 [GO HERE IF INCORRECT TRANSITION 
2261 [ON ORIGINATE LINE 
2262 010520 104014 110381: ERRORT : TRANSITION ERROR ON ANSWER LINE 
2263 010522 000207 RTS PC SCONTINUE CHECKING 
2264 010524 104014 110382: ERRORT : TRANSITION ERROR ON ORIGINATE LINE 
265 010526 000762 BR $11038 SRESELECT LINES AND REDIAL 
2267 :SET TERMINAL READY ON SELECTED ANSWER LINE 
2268 [WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 
2270 010530 013777 016046 005216 1103C: MOV LINANS ,a@DMBCSR :SET LINE COUNTER TO 
2271 ZANSWER LINE NUMBER 
2272 010536 052777 000002 005212 BIS #TRMRDY ,@DMBLSR “SET TERMINAL READY ON 
2273 SSELECTED ANSWER LINE 
2274 010544 104026 CKINTT 
3075 010546 104022 WAITRN zWAIT FOR TRANSITIONS TO OCCUR 
2277 :CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
3378 ‘SELECTED ORIGINATE AND ANSWER LINES 
2289 010550 104023 CKTRAN CHECK TRANSITIONS AND 
2281 SSTATUS ON SELECTED 
2282 TANSWER AND ORIGINATE LINES 
2283 010552 000143 CO+CS+LINENA+TRMRDY EXPECT CARRIER, CLEAR TO SEND, 
2285 SREADY STATUS BITS SET ON 
2286 TANSWER LINE 
2287 010554 000143 CO+CS+L INENA+TRMRDY EXPECT CARRIER, CLEAR TO SEND, 
2288 AND TERMI 
2289 CREADY STATUS BITS ON 
2290 ‘ORIGINATE LINE 
2291 010556 100006 RINGF #XCO+XCS SEXPECT CARRIER, CLEAR TO SEND 
2292 :AND POSSIBLE RING TRANSITIONS 
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SEQ 0051 | 
Z0N ANSWER LINE 
XCO*XCS SEXPECT CARRIER AND CLEAR | 
*TO SEND TRANSITIONS ON 
SORIGINATE LINE | 
1103D1 'GO HERE ON ANSWER LINE STATUS ERROR | 
T103D2 :GO0 HERE ON ORIGINATE LINE STATUS ERROR | 
T103D3 [GO HERE ON ANSWER LINE TRANSITION ERROR 
T103D4 'GO HERE ON ORIGINATE LINE TRANSITION ERROR 
T103E ;G0 TO NEXT TEST IF NO ERRORS 
T103D1: ERRORS ANSWER LINE STATUS ERROR 
RTS PC SCONTINUE CHECKING 
1103D2: ERRORS ;ORIGINATE LINE STATUS ERROR 
TS PC = CONTINUE CHECKING 
1103D3: ERRORT [ANSWER LINE TRANSITION ERROR 
RTS PC [CONTINUE CHECKI 
1103D4: ERRORT SORIGINATE LINE TRANSITION ERROR 
RTS PC [CONTINUE CHECKING 
;SET UP TO TEST DISCONNECT SEQUENCE 
HE PROGRAM WILL REQUEST THE OPERATOR TO SET SwO1=1 
*TO INITIATE THE DISCONNECT SEQUENC 
[THE OPERATOR MAY MANUALLY SWITCH THE DATA SETS FROM 
[DATA TO TALK MODE AS MANY TIMES AS DESIRED 
“BEFORE THE SWITCH SEETIN IS MA 
SANY TRANSITIONS DETECTED DURING THIS TIME WILL BE 
[REPORTED BY TYPEOUT 
T103E: TYPE sTYPE “SET SwO1=1 
MDISC TEST DISCONNECT" | 
MOV #340,PS “LOCK OUT INTERR uPTs 
MOV #TRNTYP,@DMBVEC ;SET UP TO DETECT TRANSIT IONS 
;BEFORE DISCONNECT SEQUENCE STARTS 
MOV #T103ES,RNGRET T UP DUMMY RETURN FOR 
[RING INTERRUPT 
MOV WSCNENA+INTENA,@DMBCSR :SET SCAN ENABLE AND INTERRUPT ENABLE 
CLR PS [ALLOW INTERRUPTS 
TI03ES: CLR TKDBR 
1$: TSTB = aTKCSR 
BPL 
TST aTKDBR 
MOV #340,PS ZSTART DISCONNECT SEQUENCE 
CLR aDMBCSR [CLEAR CONROL REGISTER 
MOV L INORG, @DMBCSR [SET LINE COUNTER TO SELECTED ORIGINATE LINE 
BIC ATRMRDY, aDMBLSR [SET TERMINAL READY ON SELECTED LINE 
WAITRN ;WAIT FOR TRANSITIONS TO OCCUR 


CHECK FOR CORRECT STATUS AND TRANSITIONS ON SELECTED 


ORIGINATE AND ANSWER LINES 
CKTRAN 


LINENA+TRMRDY 


CHECK TRANSITIONS AND 


: STATUS ON SELECTED 
WER AND ORIGINATE LINES 
3EXPECT LINE ENABL 
TERMINAL READY STATUS BITS 
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000006 
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000207 


104004 
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T103E1: 
T103E2: 
T103E3: 3 
T103E4: 

RT 


T201: 
TIO3EN: TYP 


T300: 
ST202A: 


1$: 


S$T202B: 


T202A: 
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LINENA 


XCO+XCS 


XCO+XxCS 


T103E1 
T103E2 


E 
MT103A 
CLR 
CKINTT 
JMP 


;DM11-BA ON LINE TEST See ires 202C TYPE eee 


ANSWER MODE 
; ECT D DISCONNECT SEQUENCES 
SUSING THE DM11-BA TO CONTROL 202 TYPE MODEMS 


sALSO TESTED ARE LINE TURNAROUND AND 
SECONDARY TRANSMIT-SECONDARY RECEIVE 


; REFERENCE DESIGNATION 


RESET 
MOV 
TYPE 
MT202T 
CMP 
BNE 
CNTLUU 
MOV 
MOV 
GETLNS 


SETUP 


12028 
T202A1 


PC 
PC 
PC 
PC 


TSTNO 
$11038 


#SWREG , SWR 
1$ 


#T202A,FATRET 
#ST202B ,, KRET 
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3SET LINE 
sEXPECT LINE ENABLE STATUS BIT 
;SET NATE LINE 


sANSWER LINE 
erect CARRIER AND CLEAR 
E rina. S ON 
:60 HERE ON ANSWER LINE STATUS ERROR 
260 ene ON posh ig LINE aeatie roc 
760 H ANSWER LINE TRANSITION ERR 
:GO HERE ON rae aF ke LINE TRANSITION ERROR 
:GO TO NEXT TEST IF NO ERRORS 
ZANSWER wor ERROR 
{ORIGINATE LINE STATUS ERROR 
Z ANSWER - — ERROR 


:C NUE 
ORIGINATE LINE TRANSITION ERROR 
CONTINUE CHECKING 


A et DESIGNATION 
;TYPE *' 103A TEST COMPLETE’' 


CLEAR TEST NUMBER FOR LOOPING 
TEER “. _ NUMBERS AND 
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3606 011060 10401 T202A1: ERROR 3NO RING WITHIN 5 MINUTES 
st0F 011062 00077 BR $T202B ;SELECT NEW LINES AND REDIAL 
2408 CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE 
2409 IF AN_INCORRECT ae etace OCCURS, THE PROGRAM 
2410 sWILL TYPE AN ERROR MESSA AND THE OPERATOR 
sti} ;WILL BE REQUESTED TO PeSELECT LINES AND REDIAL 
2413 011064 104021 T202B: CKRING bey FOR RING INTERRUPT 
2414 ONLY ON ANSWER LINE 
2415 zAND NO TRANSITIONS ON 
241 SORIGINATE LINE 
2417 011066 011104 T202C :GO HERE IF TRANSITIONS 
2418 ARE CORRECT 
2419 011070 011074 T202B1 GO HERE IF INCORRECT 
2420 ;TRANSITICN ON ANSWER LINE 
2421 011072 011100 T202B2 360 | IF INCORRECT 
2422 TRANSITION ON ORIGINATE LINE 
2423 011074 104014 T202B1: ERRORT sANSWER LINE TRANSITION ERROR 
2424 011076 000207 RTS PC ;CONTINUE CHECKING 
2425 011100 104014 T202B2: ERRORT ZORIGINATE LINE TRANSITION ERROR 
5158 011102 000762 BR $T2028 ;RESELECT LINES AND REDIAL 
2428 3SET TERMINAL READY ON SELECTED ANSWER LINE 
2429 ;SET REQUEST TO SEND ON SELECTED ORIGINATE LINE 
see WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 
2432 011104 013777 016046 004642 T202C: MOV LINANS ,@DMBCSR SET LINE COUNTER TO ANSWER LINE 
2433 011112 052777 000002 004636 BIS ATRMRDY , @DMBLSR 3SET TERMINAL READY ANSWER LINE 
2434 011120 013777 016044 004626 1202D: MOV LINORG ,aDMBCSR ;SET LINE COUNTER TO ORIGINATE LINE 
2435 011126 052777 000004 004622 BIS #RS ,@DMBLSR ;SET REQUEST TO SEND ON ORIGINATE LINE 
2436 011134 104026 CKINTT 
Sete 011136 104022 WAITRN WAIT FOR TRANSITIONS TO OCCUR 
2439 CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
Sect ;SELECTED ORIGINATE AND ANSWER LINES 
2442 011140 104023 CKTRAN ag TRANSITIONS AND STATUS 
2443 ON SELECTED ANSWER AND 
264k SORIGINA TE LINES 
2445 011142 000103 CO+L INENA+TRMRDY EXPECT CARRIER, LINE ENABLE 
2446 AND TERMINAL READY STATUS 
2447 BITS SET ON ANSWER LINE 
2448 011144 000147 RS+CO+CS+L INENA+TRMRDY EXPECT REQUEST TO SEND, CLEAR 
2449 :TO SEND, CARRIER, LINE ENABLE 
2450 — TERMINAL READY STATUS BITS 
2451 :SET ON ORIGINATE L 
2452 011146 100004 RINGF +XCO EXPECT ite AND POSSIBLE 
Stee :RIN Ay SITIONS ON 
2455 011150 000006 XCO+XCS SEXPECT CARRIER AND CLEAR 
2456 TO SEND TRANSITIONS ON 
2457 ORIGINATE LINE 
2458 6 GO HERE ON ANSWER LINE STATUS ERROR 


011152 011164 T202D1 
2459 011154 011170 T202D2 G0 HERE ON ORIGINATE LINE STATUS ERROR 
60 011156 0111 T202D3 GO HERE ON ANSWER LINE STATUS ERROR 
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461 011168 011200 T202D4 GO HERE ON ORIGINATE wot — ERROR 
4) 011162 011204 T202E :60 TO NEXT TEST IF NO ERR 
2465 011164 104015 T202D1: ERRORS ANSWER LINE SATAUS ERROR 
2464 011166 000207 RTS PC CONTINUE CHECKING 
2465 011170 104015 T202D2: ERRORS SORIGINATE - LINE STATUS ERROR 
2466 011172 000207 TS PC s CONTINUE C 
2467 011174 104014 T202D3: ERRORT ZANSWER LINE TRANSITION ERROR 
2468 011176 000207 RTS PC : CONTINUE CHECKING 
2469 011200 104014 T202D4: ERRORT ZORIGINATE LINE TRANSITION ERROR 
soi 011202 000207 RTS PC ;CONTINUE CHECKING 
247 SET SECONDARY TRANSMIT ON ANSWER LINE 
oh WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 
2475 011204 013777 016046 004542 T202E: MOV LINANS ,a@DMBCSR SET LINE COUNTER TO ANSWER LINE 
2476 011212 052777 000010 004536 BIS #SECTX,@DMBLSR sSET SECONDARY RECEIVE ON ANSWER LINE 
2477 011220 104026 CKINTT 
$i58 011222 104022 WAITRN WAIT FOR TRANSITIONS TO OCCUR 
2480 CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
Stes SELECTED ORIGINATE AND ANSWER LINES 
2483 011224 104023 CKTRAN CHECK TRANSITIONS AND STATUS 
2484 20N SELECTED ANSWER AND 
2485 SORIGINATE LINES 
2486 011226 000133 SECTX+CO+L INENA+TRMRDY +SECRX SEXPECT SECONDARY TRANSMIT 
2487 ;SECONDARY RECEIVE, CARRIER 
2488 ; ENABLE TERMINAL READY 
2489 STATUS BITS SET ON ANSWER LINE 
2490 011230 000167 SECRX+RS+CO+CS+L INENA+TRMRDY tap SECONDARY RECEIVE, 
2491 REQUEST TO SEND, CLEAR TO SEND 
2492 s CARRIER, LINE E 
2493 : INAL_READY STATUS BITS 
2494 SET ON ORIGINATE LINE 
2495 011232 000001 XSCRX EXPECT SECONDARY RECEIVE 
2496 ; SITION ON ANSWER LINE 
2497 011234 000001 XSCRX sEXPECT SECONDARY RECEIVE 
2498 2 TRANSITION ON ORIGINATE LI 
2499 011236 011250 T202E1 GO HERE ON ANSWER LINE STATUS E 
2500 011240 011254 T202E2 :GO HERE ON ORIGINATE LINE aoe ERROR 
2501 011242 011260 T202E3 GO HERE ON WER L TI RROR 
2502 011244 011264 T202E4 GO HERE ON ORIGINATE wo TRANSITION ERROR 
2503 011246 011270 202 7G0 TO NEXT TEST IF NO 
2504 011250 104015 T202E1: ERRORS sANSWER LINE STATUS ERROR 
2505 011252 000207 RTS PC 2 CONTINUE CHECKING 
2506 011254 104015 T202E2: ERRORS 2 ORIGINATE yd STATUS ERROR 
2507 011256 000207 TS PC : CONTINUE CH 
2508 011260 104014 T202E3: ERRORT ANSWER LINE TRANSITION ERROR 
2509 011262 000207 TS PC CONTINUE CHECKING 
2510 011264 104014 T202E4: ERRORT ZORIGINATE LINE  amaaiiatat ERROR 
$21 011266 000207 RTS PC sCONTINUE CHECKING 
$315 — REQUEST TO SEND ON ORIGINATE LINE 
2514 DROP SECONDARY TRANSMIT ON ANSWER LINE 
$212 {WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 


CZKMGAO_DM11-BA MODEM CONTR 
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2517 011270 013777 016044 004456 
$2i8 Or iSoe Or8707 000004 00445 
519 011304 013777 016046 00444 
2520 011312 04277 0010 004436 
2521 011320 10402 
$25$ 011322 1040 $$ 
252 
2524 
2525 
2526 
2527 011324 104023 
2528 
2529 
2530 011326 000003 
2531 
2532 
2533 011330 000003 
2534 
2535 
2536 011332 000005 
2537 
2538 
2539 011334 000007 
2540 
2541 
2542 011336 011350 
2543 011340 011354 
2544 011342 011360 
2545 011344 011364 
2546 011346 011370 
2547 011350 104015 
2548 011352 000207 
2549 011354 104015 
2550 011356 000207 
2551 011360 104014 
2552 011362 000207 
2553 011364 104014 
2554 011366 000207 
2555 
2556 
2557 
2558 
2559 
2560 011370 013777 016046 004356 
2561 011376 052777 000004 004352 
2562 011404 104026 
2563 011406 104022 
2564 
2565 
2566 
2567 
2568 011410 104023 
2569 
2570 
2571 011412 000147 
2572 
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T202F: MOV LINORG ,@DMBCSR SET LINE COUNTER TO ORIGINATE LINE 
BIC #RS ,@DMBLSR sDROP REQUEST TO SE 
MOV LINANS , @DMBCSR SET LINE COUNTER TO ANSWER LINE 
Oe eaTT #SECTX ,@DMBLSR DROP SECONDARY RECEIVE 
WAITRN WAIT FOR TRANSITIONS TO OCCUR 
CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 
CKTRAN CHECK TRANSITIONS AND STATUS 
70N SELECTED ANSWER AND 
ZORIGINATE LINES 
LINENA+TRMRDY EXPECT LINE ENABLE AND 
TERMINAL READY STATUS BITS 
7SET ON ANSWER LINE 
LINENA+TRMRDY EXPECT LINE LE 
; TERMINAL READY STATUS BITS 
SET ON ORIGINATE L 
XCO+XSCRX EXPECT CARRIER AND SECONDARY 
RECEIVE TRANSITIONS ON 
sANSWER LINE 
XCO+XCS*#XSCRX sEXPECT CARRIER, CLEAR TO SEND 
: SECONDARY RECEIVE 
: TRANSITIONS ON ORIGINATE LINE 
T202F2 GO HERE ON ANSWER LINE STAATUS ERROR 
T202F3 GO HERE ON ORIGINATE LINE STATUS ERRORO 
T202F4 :GO HERE ON ANSWER LINE SITION ERROR 
T202F5 :GO HERE ON Wie te te Wo TRANSITION ERROR 
T2026 :GO TO NEXT TEST IF NO 
T202F2: ERRORS zANSWER LINE STATUS ER 
RTS PC : CONTINUE CHECKING 
T202F3: ERRORS SORIGINATE LINE STATUS ERROR 
RTS PC 3 CONT INUE CHECKING 
T202F4: ERRORT ANSWER _LINE TRANSITION ERROR 
RTS PC ;CONTINTUE CHECKING 
T202F5: ERRORT SORIGINATE LINE TRANSITION ERROR 
RTS PC ;CONTINUE CHECKING 


T2026: 


SET REQUEST TO SEND ON ANSWER LINE 
WAIT FOR TRANSITIONS ON SELECTED LINES 


MOV LINANS ,aDMBCSR SET LINE COUNTER TO ANSWER LINE 
aiutt #RS ,@DMBLSR SET REQUEST TO SEND 


WAITRN WAIT FOR TRANSITIONS TO OCCUR 


CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 


CKTRAN : CHECK TRANSITIONS AND STATUS 
SWER AND 


INES 
TEXPECT LINE ENABLE, TERM 


RS+CO+CS+L INENA+TRMRDY INA 
READY, REQUEST TO SEND, CLEAR 


SEQ 0055 


eee ed etd ed ed od od wd 
RRR RLRRSRS 


WU SES WW 


SQoQoooooo°ooo 
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000103 


000006 


013777 
052777 
104026 
104022 
104023 


000167 


000133 
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CO+L INENA+TRMRDY 
XCO+XCS 
xco 
720261 
T20262 
720265 
720264 
02H 
T202G1: ERRORS 
RTS PC 
T202G2: ERRORS 
TS PC 
T202G3: ERRORT 
TS PC 
T20264: ERRORT 
RTS PC 


016044 004272 T202H: 
000010 004266 


3SET_ SECONDARY TRANSMIT ON ORIGINATE LINE 
sWAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 


MOV 
BIS 
CKINTT 


WAITRN 


CKTRAN 


RS+CS+CO+L INENA+TRMRDY+SECRX 


SECTX+CO+L INENA+TRMRDY+SECRX 


XSCRX 
XSCRX 
T202H2 


T202H5 





LINORG,@DMBCSR 
#SECTX,@DMBLSR 
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ISTATUS BITS SET ON ANSWER LINE 
ZEXPECT AL ANE ENABLE, TERMINAL 


“READY AND C STATUS 

‘BITS SET ON ORIGINATE LINE 

EXPECT CARRIER AND CLEAR 
TO SEND TRANSITIONS ON 

Z ANSWER CARRIER TRANSITION 

ON ORIGINATE LI 

SWER LINE STATUS ERROR 

; TRANSITION ERR 

:60 HERE ON ORIGINATE LINE TRANSITION ERROR 
SWER LINE STATUS ERROR 
NUE TESTING 

‘alae LINE STATUS ERROR 

WER LINE | TRANSITION ERROR 

“ORIGINATE Line’ TRANSITION ERROR 


7SET LINE COUNTER TO ORIGINATE LINE 
;SET SECONDARY TRANSMIT 


zsWAIT FOR TRANSITIONS TO OCCUR 


CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND AN 


CHECK TRANSITIONS AND STATUS 
20N SELECTED ANSWER AND 
sORIGINATE LINE 
SEND, CARRIER AND 
“RECEIVE STATUS BITS SET 
ON ANSWER LI 
EXPECT LINE ENABLE, TERMINAL 
SE — 
: ANSAL AND SECONDAR 
RECEIVE STATUS BITS Ser 
ORIGINATE LI 
EXPECT SECONDARY RECEIVE 
Z TRANSIT ON ON WER LINE 


:G0 H ITION ERROR 
GO HERE ON ORIGINATE LINE TRANSITION ERROR 
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$063 011516 011540 T2021 :GO TO NEXT TEST IF NO ERRORS 
26 011520 104015 T202H2: ERRORS ANSWER LIN STATUS ERROR 
2631 011522 000207 RTS PC 2 CONTINUE CHECKIN 
2632 011524 104015 T202H3: ERRORS SORIGINATE LINE STATUS ERROR 
2633 011526 000207 RTS PC CONTINUE CHECKING 
2634 011530 104014 T202H4: ERRORT ANSWER LINE eo ERROR 
2635 011532 000207 RTS PC 3 CONTINUE CH 
2636 011534 104014 T202H5: ERRORT ; ORIGINATE LINE TRANSITION ERROR 
seer 011536 000207 RTS PC CONTINUE CHECKING 
2639 :DROP REQUEST TO SEND ON ANSWER LINE 
say WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 
2642 011540 013777 016046 004206 12021: MOV LINANS ,a@DMBCSR SET LINE COUNTER TO ANSWER LINE 
2643 011546 042777 000004 004202 BIC #RS ,@DMBLSR CLEAR REQUEST TO SEND 
2644 011554 013777 016044 004172 MOV LINORG ,@DMBCSR 7SET LINE COUNTER TO ORIGINATE LINE 
2645 011562 042777 000010 004166 BIC #SECTX,,@DMBLSR ;CLEAR SECONDARY TRANSMIT 
2646 011570 104926 CKINTT 
044 011572 104022 WAITRN WAIT FRO TRANSITIONS TO OCCUR 
2649 CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
$020 SELECTED ORIGINATE AND ANSWER LINES 
2652 011574 104023 CKTRAN CHECK TRANSITION S AND STATUS 
2653 :0N SELECTED ANSWE AND 
2654 ORIGINATE LINES 
2655 011576 000003 LINENA+TRMRDY yA LINE ENABLE AND 
2656 ; TERMINAL READY STATUS BITS SET 
2657 [ON ANSWER LINE 
2658 011600 000003 LINENA+TRMRDY ZEXPECT LINE ENABLE AND 
2659 ; TERMINAL READY STATUS BITS 
2660 3SET ON ORIGINATE LINE 
2661 011602 000007 XCO+XCS+#XSCRX SEXPECT CARRIER, CLEAR TO SEND 
2662 AND SECONDARY RECEIVE TRANSITIONS 
2663 30N ANSWER LINE 
2664 011604 000005 XCO+XSCRX ZEXPECT CARRIER AND SECONDARY 
2665 RECEIVE TRANSITIONS ON 
2666 SORIGINA TE . 
2667 011606 011620 T20212 GO HERE ON ANSWER LINE STATUS ERROR 
2668 011610 011624 T20213 7GO HERE ON ORIGINATE LINE STATUS ERROR 
2669 011612 011630 T20214 7GO HERE ON ANSWER LINE TRANSITIN ERROR 
2670 011614 011634 T20215 GO HERE ON ORIGINATE LINE TRANSITION ERROR 
2671 011616 011640 T202J :60 TO NEXT TEST IF NO ERRORS 
2672 011620 104015 T20212: ERRORS ANSWER LINE STATUS ERROR 
2673 011622 000207 RTS PC CONTINUE CHECKING 
2674 011624 104015 T20213: ERRORS SORIGINATE LINE STATUS ERROR 
2675 011626 000207 RTS PC ; CONT INUE CHECKING 
2676 011630 104014 720214: ERRORT ANSWE LINE arr Na ERROR 
2677 011632 000207 RTS PC CONTINUE CHECK 
2678 011634 104014 T20215: ERRORT ORIGINATE CINE. TRANSITION ERROR 
ts 011636 000207 RTS PC CONTINUE CHECKING 
2681 SET UP TO TEST DISCONNECT SEQUENCE 
2682 STHE PROGRAM WILL REQUEST THE fa a TO SET SwO1=1 
2683 :10 INITIATE THE DISCONNECT SEQU 
2684 THE OPERATOR MAY MANUALLY suiTcH THE DATA SETS FROM 
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2685 DATA TO TALK MODE AS MANY TIMES AS DESIRED 
2686 s;BEFORE THE SWITCH SEETIN I 
2687 zANY TRANSITIONS DETECTED DURING THIS TIME WILL BE 
sees REPORTED BY TYPEOUT 
2590 011640 104004 T202U: TYPE sTYPE ‘'SET SWO1=1 
2671 011642 016543 MDISC = TEST DISCONNECT 
2692 011644 012737 000340 177776 MOV #340 LOCK OUT INTERRUPTS 
2693 011652 012777 012310 004070 MOV STRNTYE. @DMBVEC 3SET UP TO DETECT TRANSITIONS 
2694 011660 012737 011700 016062 MOV #T202JS,RNGRET :SET UP DUMMY RETURN FOR RING 
2695 sFROM RING INTERRUPT 
2696 011666 012777 000140 004060 MOV #SCNENA+INTENA,@DMBCSR ;ENABLE LINE SCANNE 
2697 :START SCANNER 
2698 011674 005037 177776 CLR PS ENABLE INTERRUPTS 
2699 011700 005077 004056 T202US: CLR @TKDBR 
2700 011704 105777 004050 1$: TSTB aTKCSR 
2701 011710 100375 BPL 1$ 
3708 011712 005777 004044 TST @TKDBR 
$i DISCONNECT SEQUENCE REQUESTED 
2706 011716 012737 000340 177776 MOV #340.PS LOCK OUT INTERRUPTS 
2707 011724 005077 004024 CLR aDMBCSR :STOP SCANNER 
2708 011730 013777 016044 004016 MOV LINORG -@DMBCSR [SET LINE COUNTER TO SELECTED ORIGINATE LINE 
2709 011736 042777 000002 004012 BIC #TRMRDY , @DMBLSR [SET TERMINAL READY ON SELECTED LINE 
2710 011744 104024 WAITS :DELAY 
2711 011746 104026 CKINTT 
ore 011750 104022 WAITRN zWAIT FOR TRANSITIONS TO OCCUR 
2714 3;CHECK FOR CORRECT STATUS AND TRANSITIONS ON SELECTED 
sri? ORIGINATE AND ANSWER LINES 
2717 011752 +104023 CKTRAN CHECK TRANSITIONS AND STATUS 
2718 30N SELECTED ASNWER AND 
2719 ORIGINATE LINES 
2720 011754 000003 LINENA+TRMRDY ZEXPECT LINE ENABLE AND 
2721 TERMINAL READY STATUS BITS 
2722 7SET ON ANSWE NE 
2723 011756 000001 LINENA ZEXPECT LINE ENABLE STATUS 
2724 [BIT SET ON ORIGINATE LINE 
2725 011760 000000 0 EXPECT NO TRANSITIONS ON 
2726 SANSWER LINE 
2727 011762 000000 0 EXPECT NO TRANSITIONS ON 
2728 SORIGINATE LINE 
2729 011764 011776 T202y1 7GO HERE IF ANSWER LINE STATUS ERROR 
2730 011766 012002 T202J2 GO HERE IF ORIGINATE LINE STATUS ERROR 
2731 011770 012006 T202N3 GO HERE IF ANSWER LINE TRANSITION ERROR 
2732 011772 012012 T2024 GO HERE IF ORIGINATE LINE TRANSITIONS ERROR 
2733 011774 012016 T202JN :G0 TO END OF TEST IF NO ER RORS 
2734 011776 104015 7202/1: ERRORS TANSWER LINE STATUS ERR 
2735 012000 000207 RTS PC CONTINUE CHECKING 
2736 012002 104015 T202J2: ERRORS SORIGINATE LINE STATUS ERRROR 
2737 012004 000207 TS PC CONTINUE CH 
2738 012006 104014 T2023: ERRORT SANSWER LINE TRANSITION ERROR 
2739 012010 000207 T PC CONTINUE CHECKING 
2740 012012 104014 T2024: ERRORT SORIGINATE LINE TRANSITION ERROR 
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012014 000207 RTS PC CONTINUE CHECKING 
012016 104004 T202JN: TYPE sTYPE *'202C TEST COMPLETE’’ 
012020 MTDO2A 
012022 6 CKINTT 
012024 011050 JMP $T202B 7GET NEW Lie NUMBERS 
RESTART TEST 
2749 DETECT AND RECORD TRANSITIONS ON SELECTED 
sf20 ORIGINATE AND ANSWER LINES 
275 : TRANSITION DATA IS STORED IN LOCATIONS ANSFLG AND ORGFLG 
275 3FOR ANSWER AND ORIGINATE LINES RESPECTIVELY 
si2e zFORMAT OF DATA IS (FOR BOTH LINES) 
2756 ;BITO=1, be te RECEIVE CAUSED INTERRUPT 
2757 3BIT1=1, CLEAR TO SEND CA ie INTERRUPT 
2758 3BIT2=1, CARRIER CAUSED INTERRUPT 
sien ;B1T3=1, RING CAUSED INTERRUPT 
2761 012030 017704 003720 TRANS: MOV @DMBCSR,R4 :GET LINE NUMBER AND 
: INTERRUPT FLAGS 
012034 010405 MOV R4,R5 
012036 042705 177760 BIC #177760,R5 sEXTRACT LINE NUMBER 
012042 023705 016044 CMP LINORG,R5 DID pe LINE INTERRUPT 
012046 001411 BEQ ORGTR :IF YES, SER 
012050 023705 016046 CMP LINANS ,R5 :D1D ANSWER UINE INTERRUPT 
012054 001443 BEQ ANSTR 3IF YES, SERVICE 
012056 010577 003672 MOV a @DMBCSR 
012062 017703 003670 MOV @DMBLSR ,R3 
012066 104016 ERRORN z INTERRUPT ON INCORRECT LINE 
012070 000471 BR FATEX 
RECORD TRANSITIONS FOR ORIGINATE LINE 
2072 032704 100000 ORGTR: BIT #RINGF ,R4 :IF RING CAUSED INTERRUPT, 
2076 001403 BEQ ORGTR1 SET RING TRANSITION BIT 
2100 052737 000010 016052 BIS #10, ORGFLG 
2106 032704 040000 ORGTR1: BIT #COF ,R4 :1F CARRIER CAUSED INTERRUPT 
2112 001403 BEQ ORGTR2 SET CARRIER TRANSITION BIT 
2114 052737 000004 016052 BIS #4, ORGFLG 
2122 032704 020000 ORGTR2: BIT ACSF RS :I1F CLEAR TO SEND 
: CAUSED INTERRUPT 
012126 001403 BEQ ORGTR3 SET CLEAR TO SEND 
‘TRANSITION BIT 
130 052737 000002 016052 BIS #2,O0RGFLG 
136 032704 010000 ORSTR3: BIT MSECRXF ,R4 TT USED IRTERA 5 ll 
142 001403 BEQ ORGTR4 SET SECONDARY RECEIVE 
144 052737 000001 016052 BIS #1, ORGFLG 2 TRANSITION BIT 
152 032704 170000 ORGTR4: BIT #RINGF +COF +CSF+SECRXF ,R4 
:1F NO_INTERRUPT FLAGS SET 
156 001044 BNE TRANE X sEXIT TRANSITION DETECTION 
160 104016 ORGTRR: ERRORN 
162 000434 BR FATEX 
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ad sRECORD TRANSITIONS FOR ANSWER LINE 
2799 012164 032704 100000 ANSTR: BIT pith il R4 31F RING CAUSED INTERRUPT, 
2800 012170 001403 BEQ TR1 SET RING TRANSITION BIT 
2801 012172 052737 000010 016050 BIS *10, ANSFLG 
2802 012200 032704 040000 ANSTR1: BIT #COF ,R4 :1F CARRIER CAUSED INTERRUPT 
2803 012204 001403 BEQ ANSTRE :SET CARRIER TRANSITION BIT 
2804 012206 052737 000004 016050 BIS #4, ANSFLG 
2805 012214 032704 020000 ANSTR2: BIT #CSF LRG F CLEAR TO SEND 
2806 ‘CAUSED INTERRUPT 
2807 012220 001403 BEQ ANSTR3 3SET CLEAR TO SEND 
2808 ; TRANSITION BIT 
2809 012222 052737 000002 016050 BIS #2, ANSFLG 
2810 012230 0327064 010000 ANSTR3: BIT MSECRXF ,R4 z1F SECONDARY RECEIVE 
2811 CAUSED INTERRUPT 
2812 012234 001403 BEQ gp B 7SET SECONDARY RECEIVE 
2813 012236 052737 000001 016050 BIS #1, ANSFLG ; TRANSITION BIT 
2814 012244 032704 170000 ANSTR4: BIT PRINGE +COF +CSF+SECRXF, RG” 
2815 7 IF NO_INTERRUPT FLAGS SET 
2816 012250 001007 BNE TRANE X EXIT TRANSITION DETECTION 
2817 012252 104016 ANSTRR: ERRORN 
2818 012254 005037 016002 FATEX: CLR TSTNO 
2819 012260 022626 POP2SP 
2820 012262 000177 000000 JMP @FATRET 
ses) 012266 000000 FATRET: 0 
$854 sEXIT TRANSITION DETECTION 
2825 012270 005704 TRANEX: TST k4 :I1F RING FLAG WAS SET 
2826 012272 100002 BPL - +6 :SET UP SPECIAL RETURN 
2827 012274 013716 016062 MOV RNGRET , (SP) 
2828 012300 012777 000140 003446 TRANX1: MOV #SCNENA+INTENA,@DMBCSR ;RESTART SCANNER 
34 012306 000002 RTI 
sees TYPE TRANSITION CATA AND RETURN 
2833 012310 017737 003440 013274 TRNTYP: MOV @DMBCSR DATA 
2834 012316 017737 003434 013276 MOV @DMBLSR ,DATA2 
2835 012324 104004 TYPE 
2836 012326 017623 MTRNDET 
2837 012330 104006 OCTASC 
2838 012332 012336 TRNTAB 
2839 012334 000761 BR TRANX1 
2840 012336 000002 TRNTAB: 2 
2841 012340 000006 
2842 012342 013274 DATA1 
2843 012344 000003 
sore 012346 013276 DATA2 
oe? : INPUT ORIGINATE AND ANSWER LINES FROM TELETYPE KEYBOARD 
2848 012350 000005 GETLIN: RESET 
$850 19356 O1e4z2 MSELOR EAND GET LINE NUMBER 
2851 012356 000000 0 
2852 01236C 000007 7 
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2853 012362 
2854 012364 
2855 012366 
2856 012370 
2857 012372 
2858 012374 
2859 012376 
2860 012400 
2861 012402 
2862 
2863 
2864 
2865 012404 
2866 012406 
2867 012414 
2868 012416 
2869 012422 
2870 012426 
2871 012430 
2872 012436 
2873 012444 
2874 012446 
2875 
2876 
2877 
2878 
2879 012452 
2880 
2881 012460 
2882 
2883 012466 
2884 012474 
2885 
2886 
2887 
2888 
2889 
2890 012502 
2891 
2892 012510 
2893 012516 
2894 012524 
2895 012530 
2896 012534 
2897 
2898 012542 
2899 012544 
2900 012546 
2901 012552 
2902 012556 
2903 012564 
2904 012570 
905 012572 

906 012576 
«707 012600 
2908 012604 
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000340 


013304 
013264 


006000 
000020 


015774 


016044 
000003 


016046 
000001 


012030 
000340 


012564 


177776 


016050 
016052 
016054 
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177776 


003316 
003310 


003274 
003270 


003260 
003254 


003240 
003234 
003230 


016062 


016056 


SETUPS: 


SETUP1: 


SETUP2: 


SETUP4: 
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INITIALIZE INTERFACE 


RESET 
#340,PS 
(SP) -R5 
MOV (R5)+,NXTTS 
MOV (R5)+_-ERR1 
MOV RS, (SP) 
MOV #CLRSCN+CLRMUX, @DMBCSR 
BIT #BUSY , @DMBCSR 
BNE SE TUPI 
CLR ERRFLG 


ENABLE SELECTED LINES 
SET TERMINAL READY ON SELECTED 


MOV LINORG,@DMBCSR 
MOV #LINENA+TRMRDY , @DMBLSR 
MOV LINANS ,aDMBCSR 
MOV #LINENA, aDMBLSR 
SET UP TO RECEIVE INTERR 
;START LINE SCANNER 
MOV TRANS , ADMBVEC 


MOV #340, aDMB 
MOV ASCNENACINTENA, @DMBCSR 


CLR ORGFLG 

MOV #SETUP4 .RNGRET 
TYPE 

DIALM 

CLR 

CLR TIME1 

MOV #1000, TIME2 
TST ANSFLG 

BNE SETUPB 

TST ORGFLG 

BNE SETUPB 

INC ME1 


sTYPE ‘‘ANSWER LINE-"' 
sAND GET LINE NUMBER 


RETURN TO CALLING ROUTINE - 


LOCK OUT ALL INTERRUPTS 


CLEAR LINE SCANNER AND MULTIPLEXER 


sWAIT FOR SCANNER TO CLEAR 


ORIGINATE LINE 


SET UP TO ENABLE ORIGINATE LINE 
SORIGINATE LINE NUMBER 
SET LINE ENABLE AN 


D 
TERMINAL READY ON ORIGINATE LINE 
SET LINE COUNTER TO ANSWER LINE 
:SET LINE ENABLE ON ANSWER LINE 


REQUEST OPERATOR TO wee ANSWER TERMINAL 


:SET UP INTERRUPT yeeros 

FOR TRANSITION DETECTION 

SET UP INTERRUPT SERVICE LEVEL 
START SCANNER, ENABLE INTERRUPTS 
[CLEAR TRANSITION DETECTED FLAGS 


SET _UP RETURN FROM 
DETECTION OF RING INTERRUPT 
REQUEST OPERATOR TO DIAL 


CLEAR PROCESSOR STATUS WORD 
; CLEAR 


3SET_UP FOR 5 MINUTE DELAY 
:1F TRANSITION HAS OCCURED, 
EXIT WAIT LOOP 


sALLOW OPERATOR 5 MINUTES TO DIAL 


SEQ 0061 


3 alt 
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2909 012606 005337 016056 DEC TIME2 

2910 012612 001 BNE SETUPS 

2911 012614 022626 POP2SP 

2912 012616 000177 000442 JMP @ERR1 

2913 012622 022626 SETUPB: POP2SP 

2914 012694 000177 000454 JMP @NXTTS 

2915 012630 012766 000340 000002 MOV #340,+2(SP) 

2916 012636 000002 RTI 

2918 :CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE 

2920 012640 011605 CKRNG: MOV (SP) RS 

2921 012642 012537 013304 MOV (R5)+,NXTTS 

2922 012646 012537 013264 MOV (R5)+,ERR1 

2923 012652 012537 013266 MOV (R5)+, ERR2 

2924 012656 010516 MOV R5 

2925 012660 012705 000010 MOV #10,R5 ZEXPECT RING ONLY ON ANSWER LINE 
2926 012664 013704 016050 MOV ANSFLG,R4 [GET ACTUAL TRANSITION DATA 
2927 012670 013703 016046 MOV LINANS.R3 ‘SET UP LINE NUMBER 

2928 012674 020504 CMP R5 RG :DID RING CAUSE INTERRUPT 

2929 012676 001402 BEQ CKRNG1 70N ANSWER LINE 

2930 012700 004777 000360 JSR PC, @ERR1 

2931 012704 005005 CKRNG1: CLR R5 

2932 012706 013704 016052 MOV ORGFLG,R4 

2933 012712 013703 016044 MOV LINORG,R3 

2934 012716 005704 TST R4 Z1F TRANSITION OCCURED 
2935 012720 001403 BEQ CKRNG2 TON ORIGINATE LINE, ERROR 
2936 012722 622626 POP2SP 

2937 012724 000177 000336 JMP @ERR2 

2938 012730 022626 CKRNG2: POP2SP 

2939 012732 000177 000346 JMP @NXTTS 

2941 012736 005037 016050 WAITR: CLR ANSFLG 

2942 012742 005037 016052 CLR ORGFLG 

2943 012746 012777 012030 002774 MOV #TRANS , @DMBVEC 

2944 012754 012737 012774 016062 MOV #WAITRR, RNGRET :SET UP FOR RETURN 

2945 [FROM RING DETECTION 

2946 012762 012777 000140 002764 MOV #SCNENA+INTENA,@DMBCSR :START SCANNER 

2947 012770 005037 177776 CLR PS 

2948 012774 005037 016054 WAITRR: CLR TIME1 

2949 013000 012737 000025 016056 MOV #25, TIME2 

2950 013006 005257 016054 WAITR1: INC TIME1 :WAIT FOR TRANSITIONS OF 
2951 013012 001375 BNE WAITR1 [CARRIER AND CLEAR TO SEND 
2952 013014 005337 016056 DEC TIME2 

2953 013020 001372 BNE WAITR1 

2954 013022 00 RTI 

2956 :CHECK FOR CORRECT STATUS AND TRANSITIONS ON 

rset SELECTED ORIGINATE AND ANSWER LINES 

2959 013024 012737 000340 177776 CKTRN: MOV #340.PS ZLOCK OUT FURTHER INTERRUPTS 
2960 013032 005077 002716 CLR abMacsk :STOP LINE SCANNER 

2961 013036 011605 MOV R5 

¢ 013040 012537 013274 MOV (asys" DATA 
2963 013044 012537 013276 MOV (R5)+°DATA 
2964 013050 012537 013300 MOV (R5)+.DATA 


CZKMGAO to 


CZKMGA.P11 
2965 013054 
2966 013060 
2967 013064 
2968 013070 
2969 013074 
2970 013100 
2971 013104 
2972 013106 
2973 013112 
2974 013120 
2975 013124 
2976 013130 
2977 =013132 
2978 013134 
2979 013140 
2980 013146 
2981 013152 
2982 013156 
2983 013162 
2984 013164 
2985 013166 
2986 
2987 
2988 
2989 
2990 013172 
2991 013176 
2992 013200 
2993 013206 
2994 013212 
2995 013216 
2996 013222 
2997 013224 
2998 013226 
2999 013232 
3000 013236 
3001 013242 
3002 013246 
3003 013250 
3004 013252 
3005 013256 
3006 013260 
3007 013264 
3008 013266 
3009 013270 

013272 
013274 
013276 
013300 
013302 
013304 


301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
302 
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016044 


000074 


013301 
000010 


016046 


000036 


016044 


000014 
000020 
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002634 


002606 


016050 


CKTRN1: 


CKTRN2: 


CKTRN3: 


CKTRNG: 


CKTRN2 
PC ,@ERR2 


SET LINE COUNTER TO ANSWER LINE 
GET ACTUAL ANSWER LINE STATUS 


: COMPARE 


SET LINE COUNTER TO ORIGINATE LINE 
GET ACTUAL ORIGINATE LINE STATUS 


: COMPARE 


:CHECK FOR CORRECT TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 


B Soooooocooe 
n” 


th 
.+ 
#10, ANSFLG 


PC ,@ERR4 
@NXTTS 


: TE PASS COUNT 
TYPE END OF PASS MESSAGE 


GET TRANSITION DATA FOR 


DID CORRECT TRANSITIONS OCCUR 


GET TRANSITION DATA FOR 


:DID CORRECT TRANSITIONS OCCUR 





SEQ 0063 
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EOP: 


013306 
302 013306 005237 016000 INC PASCNT ;UPDATE PASS COUNT 
302 013312 012737 000001 016002 MOV #1,TSTNO ; START AT FIRST TEST OF GROUP 
3024 013320 104004 TYPE : RING BELL 
3025 013322 020102 MEPASS 
3026 013524 013701 000042 MOV 42,R1 zARE YOU ON ACT11? 
3027 013330 001515 EQ TSTENT NO 
3028 013332 000005 RESET 
3029 013334 004711 LOGICAL: JSR PC, (R1) 
3030 013336 000240 NOP 
3031 013340 000240 NOP 
3032 013342 000240 NOP 
3033 013344 000137 013564 JMP TSTENT :GET ADDRESS OF FIRST TEST 
3035 sEMT dai SERVICE 
3036 ARGUMENT OF EMT IS EXTRACTED 
3037 USED AS OFFSET TO OBTAIN POINTER 
3038 1% SELECTED SUBROUTINE 
3040 013350 011646 EMTSRV: MOV (SP) ,-(SP) sGET PC OF Faia 
3041 013352 162716 000092 SUB #2, (SP) :=PC OF EMT 
3042 013356 017616 000000 MOV a(SP), (SP) “GET EMT 
3043 013362 006316 EMTOK: ASL (SP) SMULTIPLY EMT ARG ” 2 
3044 013364 042716 177001 BIC #177001, (SP) [CLEAR UNWANTED BITS 
3045 013370 062716 020134 ADD WEMTTAB, (SP) [POINTER TO SUBROUTINE ADDRESS 
3046 013374 017616 000000 MOV a(SP), (SP) ; SUBROUTINE ADDRESS 
3047 013400 000136 JMP a(SP)+ :GO TO SUBROUTINE 
3049 
3050 013402 105777 002352 CKINT: TSTB  aTKCSR 
3051 013406 100001 BPL 1$ 
3052 013410 027 KBDIN 
3053 013412 000002 1$ 
3054 
3055 
3056 ZEND OF SUBTEST SERVICE 
3057 [CHECK FOR LOOP ON CURRENT TEST 
3058 [CHECK FOR ESCAPE TO NEXT TEST ON ERROR 
3020 : UPDATE ITERATION COUNT AND EXIT TO NEXT TEST IF 0 
at sTEST XOR FLAG (XFLAG) FOR EXISTANCE OF XOR TESTER. 
3063 013414 005737 001242 LOOP: TST XFLAG :I1S THERE AN XOR TESTER OUT THERE ? 
3064 013420 100022 BPL :NO 
3065 013422 013746 000004 MOV 4,-(SP) :SAVE 4 
3066 013426 012737 013446 000004 MOV #i$.4  :SET UP SVC ROUTINE 
3067 013434 005737 177060 TST 177060 3GOT SOMETHING LIKE SLAVE SYNC 
3068 013440 012637 po0e MOV (SP)+,4 :YOU BETCHUM 
3069 013444 000404 BR 2$ 
3070 013446 022626 1$: POP2SP ZRESTORE STACK 
3071 013450 012637 000004 MOV (SP)+,4 :RESTORE 4 
3072 013454 000402 BR 3$ 
3073 013456 000137 013560 2$: JMP LOOPX ;GO TO NEXT TEST 
3074 013462 000137 013564 3$: JMP TSTENT :GO 
3075 013466 i$: 
3076 013466 005037 177776 CLR PSW 
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3078 013500 005737 015774 5$: TST ERRFLG s1F ERROR OCCURED FLAG=1 

3079 013504 001404 BEQ LOOPS ; CHECK FOR ESCAPE TO NEXT TEST 
3080 013506 032777 002000 002254 BIT #SW10,aSwWR 10=1, 
3081 013514 001021 BNE LOOPX tESCAPE TO’NEXT TEST 

3082 013516 032777 640000 002244 LOOPS: BIT #SW14,aSWR SIF SW14=1, 

3083 013524 001041 BNE LOOPL :LOOP ON CURRENT TEST 

3084 013526 032777 004000 002234 BIT #SW11,aSWR F Sw11=1 

3085 013534 001011 BNE LOGPX + INHIBIT ITERATIONS 

3086 013536 005337 016006 DEC ICOUNT [UPDATE ITERATION COUNT 

3087 013542 001406 BEQ LOOPX :IF ICOUNT=0, GO TO NEXT TEST 
3088 013544 013716 016004 LOOPER: MOV RETURN, (SP) ‘SET UP FOR RETURN TO CURRENT TEST 
3089 013550 042777 000100 002202 BIC #INTENA, aTKCSR 

3090 013556 90000¢ RTI ;RETURN TO CURRENT TEST 

3091 013560 005237 016002 LOOPX: INC TSTNO [UPDATE TEST NUMBER 

3092 013564 013705 016002 TSTENT: MOV TSTNO,RS [GET TEST NUMBER 

3093 013570 006305 ASL R5 ‘MULTIPLY TEST NUMBER BY 4 

3094 013572 00630 ASL R5 

3095 013574 063705 016034 ADD TSTPNT,RS :GET POINTER FOR TEST ENTRY 
3096 013600 011537 016004 MOV (RS) , RETURN ‘GET STARTING ADDRESS OF NEXT TEST 
3097 013604 001640 BEQ EOP ‘IF ADDRESS=0, GO TO END OF PASS 
3098 013606 012516 MOV (R5)+, (SP) ‘PUT STARTING ADDRSS ON STACK 
3099 013610 011537 016006 MOV (R5), 1COUNT [GET ITERATION COUNT FOR TEST 
3100 013614 005037 015774 CLR ERRFLG [CLEAR ERROR OCCURED FLAG 

3101 013620 042777 000100 002132 BIC #INTENA, @TKCSR 

3102 013626 000002 RTI :G0 TO TEST 

3103 013630 012737 000001 016006 LOOPL: MOV #1, 1 COUNT ‘SET UP TO EXIT TEST AFTER LOOP 
3104 013636 000742 BR LOOPER ‘GO TO LOOP SERVICE 

3106 :CHECK FOR LOOPING WITH SAME DATA 

3107 :CHECK FOR ESCAPE TO NEXT TEST ON ERROR 

3109 013640 005737 015774 FREEZE: TST ERRFLG :1F ERROR FLAG=0, 

3110 013644 001413 BEQ FREEZX ‘DO NOT TEST FOR ESCAPE 

3111 013646 032777 002000 002114 BIT #SW10,aSWR SIF Sw10=1, 

3112 013654 001341 BNE LOOPX ESCAPE TO" NEXT TEST 

3113 013656 032777 001000 002104 BIT  § #SWO9,aSWR 

3114 013664 001403 BEQ FREEZX ‘FREETE CURRENT DATA 

3115 013666 017616 000000 MOV a(SP), (SP) [GET LOOPING ADDRESS 

3116 013672 000002 RTI [LOO 

3117 013674 062716 000002 FREEZX: ADD #2, (SP) *CONTINUE IN CURRENT TEST 

3118 013700 000002 RTI 

3120 :GENERAL ERROR SERVICE 

3121 SONLY PC OF FAILING TEST IS OUTPUT TO TELEPRINTER 

3123 013702 005037 015774 ERR: CLR ERRFLG sALWAYS TYPE PC+2 

3124 :0F TEST’ THAT FAILED 

3125 013706 005037 014122 CLR ERRMSG :NO MESSAGE 

3126 013712 005037 014134 CLR ERTAB [NO TABLE OF DAT 

3127 013716 000451 BR ERRGEN ‘OUTPUT ERROR MESSAGE 

3129 ; TRANSITION DETECTION ERROR SERVICE 

3131 :FORMAT FOR ERROR TYPEOUT IS 


ee ie & saith 
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3XXXXXX_ TRANSITION ERROR 
sEXP REC LINE 


sWHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
: AA=EXPECTED INTERRUPT FLAGS (CORRESPONDS TO 4 MSB OF CONTROL REGISTER 


: BB=RECEIVED INTERRUPT FLAGS (AS ABOVE) 

: CC=LINE ON WHICH ERROR OCCURED 
013720 005037 015774 ERRT: CLR ERRFLG sALWAYS OUTPUT ALL DATA 
013724 012737 016203 oie ig? MOV #MTRANE ,ERRMSG sTYPE “TRANSITION ERROR 
013732 012737 014210 014134 MOV #ERTABI,ERTAB ; TABLE OF DATA 
013740 000440 BR ERRGEN OUTPUT ERROR MESSAGE 

sON“LINE STATUS ERROR SERVICE 

zFORMAT FOR LINE STATUS ERROR IS 

zXXXX LINE ERROR 

sEXP REC LINE 

sWHERE XXXXXX=PC+2 OF CALL _TO ERROR ROUTINE 

; AAA=EXPECTED LINE STATUS AT TIME OF ERROR 

; BBB=RECEIVED LINE STATUS AT TIME OF ERROR 

: CC=LINE ON WHICH ERROR OCCURED 
013742 005037 015774 ERRS: CLR ERRFLG zALWAYS OUTPUT ALL DATA 
013746 012737 016152 014122 MOV #MLINE1 ,ERRMSG A My ae 
013754 012737 014226 014134 MOV #ERTAB2 ,ERTAB ;TABLE OF DATA 
013762 000427 BR ERRGEN OUTPUT ERROR MESSAGE 

:FATAL_TRANSITION ERROR 

FORMAT FOR FATAL ERROR TYPEOUT IS 

3XXXXXX FATAL ERROR 

sCSTAT LSTAT 

sWHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 

: AAAAAA=RECEVICED CONTROL STATUS ON LINE THAT INTERRUPTED 

: BBB=RECEIVED LINE STATUS ON LINE THAT INTERRUPTED 
013764 005037 015774 ERRN: CLR ERRFLG sALWAYS OUTPUT ALL DATA 
013770 012737 017571 014122 MOV #MFATAL ERRMSG ea, eh 
013776 012737 014244 014134 MOV #ERTABS ,ERTAB STABLE OF DATA 
014004 000416 BR ERRGEN OUTPUT ERROR MESSAGE 


"CONTROL STATUS’’ ERROR SERVICE 
FORMAT FOR CONTROL STATUS ERROR IS 


ZXXXXXX STATUS ERROR 
7 EXP REC 
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3189 

3190 3 WHERE reer res | OF CALL TO ERROR ROUTINE 
191 : AAAAAA=EXPECTED CONTROL STATUS AT TIME OF ERROR 
136 : BBBBBB=RECEIVED(ACTUAL) CONTROL STATUS AT TIME OF ERROR 

3194 

3122 014006 012737 016064 014122 ERRCS: MOV AMSTATE ,ERRMSG ita 3 an ERROR 

3197 014014 012737 014256 014134 MOV WERTABS ,ERTAB ;TABLE OF DATA 

$195 014022 000407 BR ERRGEN SOUTPUT DATA 

sos zLINE STATUS ERROR SERVICE 

$508 sFORMAT FOR LINE STATUS ERROR IS 

3204 7XXXX LINE ERROR 

3205 sEXP REC LINE SEL 

$509 sAAA «=~(DDCCC DD 

3208 sWHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 

3209 : =EXPECTED LINE STATUS AT TIME OF ERROR 

3210 : =RECEIVED LINE STATUS AT TIME OF ERROR 

3211 : CC=LINE ON WHICH ERROR OCCURED 

$516 : DD=THE LINE ON WHICH THE PROGRAM WAS OPERATING 

3214 

3215 014024 012737 016115 014122 ERRLS: MOV #MLINER,ERRMSG 

3216 014032 012737 014270 014134 MOV #ERTABS ,ERTAB 

$512 014040 000400 BR ERRGiN 

3219 4 a ERROR HANDLER 

3220 TYPE PC+2 OF TEST THAT FAILED 

3221 STYPE ERROR MESSAGE (IF ANY) 

$556 TYPE DATA RELATING TO FAILURE (IF ANY) 

3224 014042 005037 177776 ERRGEN: CLR PSW 

3225 014046 012777 000100 001704 MOV #INTENA, aa 

3226 014054 032777 020000 001706 BIT #SW13.a t F SW13=1, DO NOT 
3227 014062 001026 BNE TYPE ERROR MESSAGE 
3228 014064 021637 016026 CMP (SP), SAVPC :SAME ERROR AGAIN 

3229 014070 001402 BEQ 

3230 014072 005037 015774 CLR ERRFLG 

3231 014076 104005 SAVO5SP 

3232 014100 005737 015774 TST ERRFLG z IF ERROR OCCURED FLAG=1, 
3233 014104 001007 BNE of ZTYPE DATA ONLY 

3234 014106 104006 OCTASC TYPE PC+2 OF CALL TO ERROR ROUTINE 
3235 014110 Oiaets ERTABO 

3236 014112 005737 014122 TST ERRMSG 

3237 014116 001407 BEQ 2 

3238 014120 104004 TYPE zTYPE ERROR MESSAGE 
3239 014122 000000 ERRMSG: 0 

3240 014124 005737 014134 of: TST ERTAB 

3241 014130 001402 BEQ 2 

3242 014132 104006 OCTASC zTYPE DATA 

3245 014134 000000 ERTAB: 0 

3244 014136 104007 * RESO5 sRESTORE RO-R5 
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3245 
$509 zERROR HALT SERVICE 
3248 014140 032777 100000 001622 .3: BIT #SW15 ,aSWR z1F S$W15=0, DO NOT 
3349 014146 001406 BEQ 4 [HALT ON ERROR 
50 014150 900000 HALT HALT AND DISPLAY ADDRESS OF FAILING TEST 
51 014152 022737 000176 015770 CMP ASWREG, SWR 
3252 014160 001001 E 4 
3253 014162 403052 CNTLUU 
3254 014164 012737 000001 015774 .4: MOV 1,ERRFLG zSET ERROR OCCURED FLAG 
3255 014172 042777 000100 001560 BIC #INTENA,@TKCSR 
3326 014200 000002 RTI ;RETURN TO TEST 
3258 
3259 
3509 TABLE S$ OF DATA FOR ERROR TYPEOUT 
3508 :TABLE FOR TRANSITION STATUS ERROR 
64 014202 000001 ERTABO: 1 
014204 000006 6 
014206 016026 SAVPC 
014210 000003 ERTAB1: 3 
014212 000002 2 
014214 016022 SAVRS CONTAINS EXPECTED TRANSITION STATUS 
014216 000002 
014220 016020 SAVR4 CONTAINS RECEIVED TRANSITION STATUS 
014222 000002 
014224 016016 SAVR3 CONTAINS NUMBER OF LINE WHERE ERROR OCCURED 
014226 000003 ERTAB2: 3 
Pea htt SavRs CONTAINS EXPECTED LINE STATUS 
014234 000003 3 
014236 016020 SAVR4 CONTAINS RECEIVED LINE STATUS 
o125¢9 ttt’ SAVR3 CONTAINS NUMBER OF LINE WHERE ERROR OCCURED 
014244 000002 ERTAB3: 2 
014246 000006 6 
014250 016020 SAVR4 
014252 000003 
014254 016016 SAVR3 
014256 000002 ERTAB4: 2 
b145¢9 016022 Sars CONTAINS EXPECTED CONTROL STATUS 
; L U 
014268 000006 
014266 016020 SAVR4 CONTAINS RECEIVED CONTROL STATUS 
014270 ERTABS: 4 
SaSee atta Savas CONTAINS EXPECTED LINE STATUS 
3 L U 
$1280 ities SAVR4 CONTAINS RECEIVED LINE STATUS 
: U 
Pet Stat: SAVR3 CONTAINS NUMBER OF LINE WHERE ERROR OCCURED 
014306 900008 
014310 01601 SAVR1 CONTAINS NUMBER OF LINE UNDER TEST 
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3302 014314 
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3310 014342 
3311 014346 
3316 014352 
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3315 014364 
3316 014366 
3317 014372 
3318 014376 
3319 014400 
3320 014402 
3321 014404 
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3323 
3324 014406 
3325 014412 
3326 014420 
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3328 014424 
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3330 4434 
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3333 014442 
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3335 014446 
3336 014450 
3337 014452 
3338 014454 
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OCTASN: 
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CNTLU: 
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SWREG 

:CONVERT OCTAL TO ASCII AND OUTPUT ON T 
MOV a(SP),R5 GET POINTER TO TABLE OF DATA 
ADD #2, (SP) 
MOV #10, RADIX 
MOV #MBCD zSET UP POINTER FOR CONVERTED DATA 
MOV (Reve *CARCNT [GET NUMBER OF WORDS TO BE CONVERTED 
MOV (R5)+.CHRCNT [GET NUMBER OF DIGITS IN WORD 
MOV a(R5)+,BINWRD :GET DATA TO BE CONVERTED 

CONVERT [CONVERT TO AS 
DEC WRDCNT :IF ALL DATA IS NOT CONVERTED 
BNE OCTAS1 : CONT INUE 
MOVB #100, (R4) ‘PUT TERMINATOR AT END OF MESSAGE 
st SMLN 

TYPE OUTPUT CONVERTED DATA 
MBCD :T0 T 
RTI ‘RETURN 1 CALLING ROUTINE 

CLR TMP1 
MOV #1, TMP2 

TYPE 
SSWREQ 

1S #1,SMLN 
OCTASC 

SWRTB 

TYPE 
MBCD+2 

INSTRG 
SNEWIS 

177777 

TMP1 
CMPB —sINBUF , #15 
BEQ 1$ 
MOV TMP1,aSWR 
CLR TMP2 
CLR SMLN 
RTI 
0 
0 
0 
yINTEGER BINARY TO ASCII CONVERSION COMMON ROUTINE 

: MOV CHRCNT,RO ;SET UP COUNT FOR DIGITS TO BE CONVERTED 

MOV ATEMTAB,R1 [SET UP POINTER FOR TEMPORARY STORAGE 
EXTRACT SEXTRACT ONE DIGIT 
ADD #60,DIGIT :CONVERT FROM BCD TO ASCII 
MOVB DIGIT, (R1)+ STORE 
DEC RO [IF ALL DIGITS NOT DONE, 
BNE BINASA > CONT INUE 


SEQ 0069 
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3357 014542 Ateles BINASB: MOVB -(R1),(R4)+ ri ie 1 ORDER OF DIGITS 
3358 014544 005237 016032 DEC CHRCNT Z1F ALL CHARAC TERS ARE NOT 
3359 014550 001374 BNE BINASB IN ORDER, CONTINUE 
3360 014552 112724 000040 MOVB #40, (R4)+ : INSERT SPACE AFTER LAST DIGIT 
330) 014556 000002 RTI RETURN TO CALLING ROUTINE 
Saez sSINGLE PRECISION UNSIGNED DIVIDE LOOP 
3365 014560 005037 014656 DIVI: CLR DIVIDH 
3366 014564 023737 014656 014660 DIVIU: CMP DIVIDH,DIVIS 
3367 014572 103027 BHIS D 
3368 014574 012737 000021 014634 MOV #17. ,DIVCNT 
3369 014602 000407 BR V 
3370 014604 023737 014656 014660 DIVIA: CMP DIVIDH,DIVIS 
3371 014612 103403 BLO DIVIC 
3372 014614 163737 014660 014656 SUB DIVIS,DIVIDH 
3373 014622 006137 014654 DIVIC: ROL DIVIDL 
3374 014626 006137 014656 ROL DIVIDH 
3375 014632 005327 EC (PC) + 
3376 014634 000000 DIVCNT: 0 
3377 014636 001362 E DIVIA 
3378 014640 006037 014656 ROR DIVIDH 
3379 014644 005137 014654 COM DIVIDL 
3380 014650 000002 I 
3381 014652 000000 : HALT 
3382 014654 000000 DIVIDL: 

3383 014656 000000 DIVIDH: 0 

3384 014660 000000 DIVIS: 0 

3306 ;SAVE PC OF TEST THAT FAILED AND RO=R5 
3388 014662 016637 000004 016026 SVOS5P: MOV 4(SP) , SAVPC 

3354 7SAVE RO-R5 

3392 014670 010537 016922 SVO5: MOV R5,SAVRS5 

3393 014674 010437 016020 MOV R4. SAVRG 

3394 014700 010337 016016 MOV R3.SAVR3 

3395 014704 010237 016014 MOV R2.SAVR2 

3396 014710 010137 016012 MOV R1,SAVR1 

3397 014714 010037 016010 MOV RO. SAVRO 

3398 014720 000002 RTI 

sie sRESTORE RO-R5 

3402 014722 013700 016010 RSOS: Ov’ SAVRO,RO 

3403 014726 013701 016012 MOV SAVR1.R1 

3404 014732 013702 016014 MOV SAVR2 ,R2 

3405 014736 013703 016016 MOV SAVR3, 

3406 014742 013704 016020 MOV SAVR4 RG 

3407 014746 013705 016022 MOV SAVRS.RS 

3408 014752 000002 RTI 

3419 ; TELETYPE OUTPUT ROUTINE 
3412 014754 017605 000000 TYPER: MOV a(SP) ,R5 3GET POINTER TO MESSAGE (ON STACK) 
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3413 014760 062716 000002 ADD #2, (SP) :CORRECT STACK FOR RETURN 

3414 014764 105777 000774 TYPERA: TSTB  aTPCSR [WAIT FOR TELEPRINTER READY 

3415 014770 100375 BPL TYPERA 

3416 014772 122715 000100 CMPB ss #100, (RS) sIF CHARACTER IS NOT TERMINATOR, TYPE IT 

3417 014776 001001 BNE TYPER1 

3418 015000 090002 RTI ZCHARACTER IS TERMINATOR, EXIT 
19 015002 122715 000042 TYPER1: CMPB #42, (R5) TIF CHARACTER=42, 

3420 015006 001406 BEQ TYPECL S TYPE LINE FEED 

3421 015010 122715 000045 C #45, (R5) TIF CHARACTER=45, 

3422 015014 001403 BEQ TYPECL [TYPE CARRIAGE RETURN 

3423 015016 112577 000744 TYPER2: MOVB  (R5)+, aTPDBR [GET CHARACTER 

3424 015022 000760 TYPERA ‘TYPE IT 

3425 015024 142715 000040 TYPECL: BICB #40, (RS) [CONVERT CODE OF 42 OR 45 

3426 015030 152715 000010 BISB #10.(R5) :T0 12 OR 15 

3427 015034 000770 BR TYPER2 [TYPE IT 

3428 

3429 

3430 yINPUT OCTAL CHARACTER STRING 

3431 [TERMINATOR IS CARRIAGE RETURN 

3432 [IF MORE THAN SEVEN (7) CHARACTERS INCLUDING 

3433 SCARRIAGE RETURN ARE TYPED, THE IN PUT WILL 

3434 TBE RE-REQUESTED 

3436 015036 INSTR: 

3437 015036 011605 MOV (SP) ,R5 :GET POINTER TO ARGUMENTS 

3438 015040 012537 015064 MOV (R5)+,MSG [GET MESAGE TO BE TYPED 

3439 015044 012537 015316 MOV (R5)+.LOLIM [GET LOWER LIMIT 

3440 015050 012537 015320 MOV (R5)+,HILIM [GET UPPER LIMIT 

3441 015054 012537 015322 MOV (R5)+, STORE [GET DATA STORAGE LOCATION 

3442 015060 010516 MOV RS, (SP) SRESTORE STACK 

3443 015062 104004 INSTR1: TYPE [TYPE MESSAGE 

3444 015064 000000 MSG: 0 

3445 015066 012704 015324 MOV #INBUF ,R4 :SET UP CHARACTER INPUT BUFFER 

3446 015072 012703 000007 MOV #7,.R3 ‘SET UP INPUT COUNT 

3447 015076 105777 000656 INSTRB: TSTB aTKCSR zWAIT FOR CHARACTER 

3448 015102 100375 BPL INSTRB 

3449 015104 005037 002152 INSTBB: CLR SINTF 

3450 015110 117737 000646 014504 MOVB  aTKDBR,TMP1 

3451 015116 142737 000200 014504 BICB 200, 

3452 015124 113714 014504 MOVB  =TMP1.(R4) 

3453 015130 121427 000007 CMPB ss (RG) . #7 

3454 015134 001420 BEQ INSTER 

3455 015136 121427 000015 CMPB ss (RG) , #15 :1S CHARACTER TERMINATOR 

3456 015142 001420 BEQ NSTR2 :IF IT IS, CONVERT INPUT STRING 

3457 015144 121427 000025 CMPB ss (RG) , #25 

3458 015150 001003 BNE 1$ 

3459 015152 005037 014504 CLR 

3460 015156 000741 BR INSTR1 

3461 015160 112477 000602 1$: MOVB _ (R&) +, @TPDBR : TYPE CHARACTER IF NOT TERMINATOR 

3462 015164 105777 000574 INSTRC: TSTB aTPcsR sWAIT TO FINISH TYPING 

3463 015170 100375 BPL INSTRC 

3464 015172 005303 DEC R3 ;UPDATE RECEIVED COUNT 

3182 O13196 anys INSTER OYE — TYPE oy, AND RE-REQUEST INPUT 

3467 015200 017510 MOM 

3468 015202 000727 INSTR1 


H 6 
vee DM11-BA MODEM CONT TR. MACY11 30A(1052) 21-OCT-81 05:36 PAGE 72 


CZKMGA.P11 20-OCT-81 17:09 SEQ 0072 
3469 

oft sCONVERT ASCII STRING TO OCTAL 

3472 015204 104004 INSTR2: TYPE 

3473 015206 017514 MCRLF 

3474 015210 012704 015324 MOV #INBUF ,R4 GET POINTER TO ASCII STRING 
3475 015214 005003 CLR R 

3476 015216 122714 000015 CMPB #15,(R4) 31S TERMINATOR FIRST 

3477 CHARACTER IN STRING 

3478 015222 001431 BEQ CHCK 

3479 015224 121427 000060 INSTRD: CMPB (R4) ,#60 :IS yy nee _OCTAL DIGIT 
3480 015230 002762 BLT INSTER ;1F 67>=CHAR 

3481 015232 121427 000067 CMPB (R4) ,#67 ‘CHARACTER I 1s OCTAL DIGIT 
3482 015236 003357 BGT INSTER 

3483 015240 142714 000060 BICB #60, (R4) sSTRIP ASCII 

3484 015244 152403 B1SB (R4S+,R3 ;GENERATE OCTAL NUMBER 

3485 015246 121427 000015 CMPB (R4) #15 :IF END OF STRING, CHECK LIMITS 
3486 015252 001404 BEQ INSTR3 

3487 015254 006303 ASL R3 sMULTIPLY DIGIT BY 10 (OCTAL 
3488 015256 006303 ASL R3 

3489 015260 006303 ASL R3 

Sio0 015262 000760 INSTRD :GET NEXT DIGIT 

4 TEST NUMBER TO SEE IF IT IS WITHIN LIMITS 

3494 015264 020337 015320 INSTR3: CMP R3,HILIM i HI LIMIT 

3495 015270 101342 BHI INSTER F _R3>HILIM, ERROR 

3496 015272 020337 015316 CMP aad LOLIM TEST L LIM 

3497 015276 103737 BLO STER ZF R3CLOLIM, ERROR 

3498 015300 010377 000016 MOV RS. @STORE STORE NUMBER 

3499 015304 000002 RTI sEXIT 

3500 015306 005737 014506 CHCK: TST MP2 

3501 015312 001731 BEQ INSTER 

3502 015314 000002 RTI 

3503 015316 000000 LOLIM: 0 

3504 015320 000000 HILIM: 0 

3505 015322 000000 STORE: 0 

3506 015324 000000 INBUF: 0 

3507 015346 =.+20 

3508 ENTER HERE ON POWER FAILURE 

Ht 

3511 015346 010046 PFAIL: MOV RO,-(SP) sSAVE RO-RS ON PROCESSOR STACK 
3512 015350 010146 MOV R1,~(SP) 

3513 015352 010246 MOV R2,-(SP) 

3514 015354 010346 MOV R3,-(SP) 

3515 015356 010446 MOV R4,-(SP) 

3516 015360 010546 MOV R5,-(SP) 

3517 015362 013746 000024 MOV 24,-(SP) 

5518 015366 010637 016024 MOV SP, SAVSP sSAVE STACK POINTER 

3519 015372 012737 015404 000024 MOV HRESTART 24 :SET_UP FOR POWER UP TRAP 
3520 015400 000000 HALT sHALT ON POWER DOWN NORMAL 
3253 015402 000776 BR 72 

$254 sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
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525 015404 013706 016024 RESTAR: MOV SAVSP, SP :RESTORE STACK POINTER 
526 015410 012605 MOV (SP) +_R5 SRESTORE RO-R5 

3527 015412 0126 MOV (SP)+-RG 

3528 015414 012603 MOV (SP)+.R3 

33¢9 015416 01260 MOV (SP)+.R2 

3530 015420 012601 MOV (SP) +-R1 

3531 015422 012600 MOV (SP)+"RO 

3532 015424 012737 015346 000024 MOV WPFAIL, 24 :SET UP FOR POWER FAILURE 
3533 015432 005726 POP1SP 

3534 015434 104004 TYPE 

3535 015436 017667 MPFAIL 

3536 015440 005737 001730 TST TIPFLG 

3537 015444 001002 BNE RESTA1 

3538 015446 000137 001254 JMP STARTO 

3539 015452 104004 RESTA1: TYPE 

3540 015454 017707 MPF 1 

3541 015456 012716 000340 MOV #340, (SP) 

3542 015462 005746 PUSH1SP 

3543 015464 000137 013564 JMP TSTENT 

3545 

3546 ;THE FOLLOWING AUTO VECTORS USING THE FIRST BASE ADDRESS 
3547 015470 013746 000020 R: V = (SP) ; 

3548 015474 013746 000022 MOV 22.=(SP) TSAVE 22 

3549 015500 012737 015672 000020 MOV #2$,20 []OT INTR VECTOR 
3550 015506 012737 000340 000022 MOV :I0T INTR LVL 

3551 015514 012737 000300 013274 MOV #300,DATA1 

3552 015522 012737 000302 013276 MOV #302. DATA2 

3553 015530 013777 013276 175536 1S: MOV DATA2, @DATA1 

3554 015536 012777 000004 175532 MOV #IOT, @DATA2 :10T TRAP 

3555 015544 062737 000004 013274 ADD #4, DATAI 

3556 015552 062737 000004 013276 ADD #4-DATA2 

3557 015560 023727 013274 001000 CMP DATA1, #1000 

3558 015566 001360 BNE 1$ 

3559 015570 012737 000000 016002 MOV #0, TSTNO sSET UP DEFAULT 

3560 015576 012737 020246 016034 MOV #TSTTBO,TSTPNT : 

3561 015604 052737 000340 177776 BIS #340,PS [PREVENT INTERRUPTS 
3562 015612 005077 000136 CLR a@DMBCSR : 

3563 015616 012777 000100 000130 MOV #INTENA,@DMBCSR :SET INTERRUPT ENABLE 
3564 015624 042737 000340 177776 BIC #340,PS :ALLOW INTERRUPTS 

3565 015632 052777 000200 000114 BIS WDONE ,@DMBCSR  ;SET DONE..AND INTERRUPT 
3566 015640 000240 NOP 

3567 015642 012637 000022 MOV (SP)+,22 :YOU DIDN'T INTERRUPT ? 
3568 015646 012637 000020 MOV (SP) +. 30 *RESTORE 20 

3569 015652 005077 000076 CLR a@DMBCSR [STOP ALL INTERRUPT 
3570 015656 052737 000340 177776 BIS #340,PS : 

3571 015664 104012 ERROR 

3572 015666 000000 HALT zYOU SHOULD HAVE INTERRUPTED 
3573 015670 000426 BR 3$ 

3574 015672 011637 015750 2$: MOV (SP) ,DMBVEC ZEXTRACT VECTOR +4 
3575 015676 16e757 000002 015750 SUB #2, C [CREATE LVL 

3576 015704 013737 015750 015752 MOV DMBVEC,DMBLVL SAV 

3577 015712 162737 000002 015750 SUB ae DMBVEC [CREATE AND SAVE VEC 
3578 015720 012737 000340 177776 MOV #340,PS [PREVENT INTERRUPTS 
3579 015726 005077 000022 CLR @DMBCSR : 

3580 015732 022626 POP2SP 
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3581 015734 022626 POP2SP 

$288 015736 012637 000022 MOV (SP)+,22 sRESTORE 22 
3583 015742 012637 000020 MOV (SP)+,20 RESTORE 20 
3584 015746 000207 3$: RTS PC 

3585 

3586 

3200 INDIRECT POINTERS 

3589 015750 000540 DMBVEC: 540 :DM11-BA INTERRUPT pe 4H 
3590 015752 000542 DMBLVL: 542 DM11-BA ONTERRUPT PRIORITY 
3591 015754 164200 DMBCSR: 164200 DMI 1-BA CONTROL STATUS REGISTER 
3592 015756 164202 DMBLSR: 164202 ;DM11-BA CONTROL STATUS REGISTER 
3593 015760 177560 TKCSR: 177560 

3594 015762 177562 TKDBR: 177562 

3595 015764 177564 TPCSR: 1 

3596 015766 177566 TPDBR 177396 

3597 015770 177570 SUR : 177570 

S206 015772 177570 DISPLAY: 177570 

ty 3PROGRAM VARIABLES 

3602 015774 000000 ERRFLG: 0 

3603 015776 000000 TRACON: 0 

3604 016000 000000 PASCNT: 0 

3605 016002 0000 TSTNO: 0 

3606 016004 000000 RETURN: 0 

3607 016006 000000 ICOUNT: 0 

3608 016010 000000 SAVRO: 0 

3609 016012 000000 SAVR1: 0 

3610 016014 000000 SAVR2: 0 

3611 016016 000000 SAVR3: 0 

3612 016020 000000 SAVR4: 0 

3613 016022 000000 SAVR5: 0 

3614 016024 000000 SAVSP: 0 

3615 016026 000000 SAVPC: 0 

3616 016030 WRDCNT: 0 

3617 016032 CHRCNT: 0 

3618 016034 020246 TSTPNT: TSTTBO 

3619 016036 TSTMAX: 0 

3620 016940 000000 LINFLG: 0 

3621 016042 000000 LINE 0 

3622 016044 000000 LINORG: 0 

3623 016046 000000 LI 0 

3624 016050 000000 ANSF!.G: 0 

3625 016052 000000 ORGFLG: 0 

3626 016054 000000 TIME1: 0 

3627 016056 000000 TIME2: 0 

3628 016060 000000 TIFLG: Q 

309) 016062 000000 RNGRET: 0 

3631 016064 052123 052101 051525 MSTATE: .ASCII ;STATUS ERROR2''EXP RECa@; 
3632 016072 042440 051122 051117 

36335 016100 021045 054105 020120 

3634 016106 020040 051040 041505 

3635 016114 100 

3636 016115 114 047111 020105 MLINER: .ASCII ;LINE ERROR%''EXP REC LINE SEL@; 
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3637 016122 051105 047522 020522 

$638 016150 042642 050130 051040 

3659 016156 041505 046040 047111 

3640 016144 020105 042523 040114 

3641 016152 044514 042516 042440 MLINET: .ASCII LINE ERRORZ'EXP REC LINE@; 

$4@ 016160 051122 31117 021045 

3643 016166 054105 020120 042522 

3644 016174 020103 044514 042516 

3645 016202 100 

3646 016203 124 040522 051516 MTRANE: .ASCII ; TRANSITION ERRORZ"EXP REC LINE@; 

3647 016210 052111 047511 020116 

3648 016216 051105 047522 022522 

3649 016224 042442 050130 051040 

3650 016232 041505 046040 047111 

3651 016240 040105 

3652 016242 021045 021045 044504 DIALM: .ASCII ;%''S"DIAL ANSWERING DATA SETZ'‘@; 

3653 016250 046101 040440 951516 

3654 016256 042527 044522 043516 

3655 016264 042040 052101 020101 

3656 016272 042523 022524 040042 a 

3657 016300 621045 021045 030061 MT103T: .ASCII ;%'°%"103A MODEM CONNECT-DISCONNECT TEST2"@; 

3658 016306 040463 046640 042117 

3659 016334 046505 041440 047117 

3660 016322 042516 052103 042055 

3661 016330 051511 047503 047116 

3662 016336 041505 020124 042524 

3663 016344 052123 021045 100 

3664 016351 045 022442 031042 MT202T: .ASCII ;%''%"'202C MODEM CONNECT-DISCONNECT TEST2"@; 

3665 016356 031060 020103 047515 

3666 016364 042504 020115 047503 

3667 016372 047116 041505 0265 

3668 016400 044504 041523 047117 

3669 016406 042516 052103 052040 

3670 016414 051505 022524 040042 

3671 016422 021045 021045 051117 MSELOR: .ASCII ;X'%"ORIGINATE LINE-a; 

3672 016430 043511 047111 052101 

3673 016436 020105 044514 042516 

3674 016444 040055 

3675 016446 021045 047101 053523 MSELAN: .ASCII ;%''ANSWER LINE-@; 

3676 016454 051105 046040 047111 

378 016465 45 030442 031460 MTIO3A: .ASCII ;X°103A TEST COMPLETEX"@ 

3679 016472 020101 042524 052123 

3680 016500 041440 046517 046120 

Se) BEE Sets tess BESS arzons asct_:4°200 TEST COMLETERD 

3683 016522 052040 051505 020124 

3684 016530 047503 050115 042514 

3686, 016543 04S 051443 051124 MDISC: .ASCII :X°STRIKE ANY TTY KEY TO TEST DISCONNECTa 

3687 016550 045511 020105 047101 

3688 016556 020151 052124 020131 

3689 016564 042513 020131 047524 

3690 016572 052040 051505 020124 

3691 016600 044504 041523 047117 

3692 016606 042516 052103 100 
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3693 016613 045 022442 034042 M16: ASCII ;%''%''B LINE SCANNER TEST2'‘Q; 

3694 016620 046040 047111 020105 

3695 bo 4 041523 047101 042516 

3696 0166 020122 042524 052123 ‘ 

3697 016642 021045 100 

3698 016645 045 oogere 041442 MTITLE: .ASCII ;%°'%''CZKMGAO DM11-BA MODEM CONTRL2’'; 

3699 016652 045532 043515 030101 

3700 016660 042040 030515 026461 

3701 016666 040502 046440 042117 

3702 016674 046505 041440 047117 

3703 016702 051124 022514 042 * 

3704 016707 045 042 ASCII ;2''; a 

3705 016711 124 051505 020124 ASCII ; TEST GROUP 0:2"'; 

3706 016716 051107 052517 020120 

3707 016724 035060 021045 

3708 016730 043117 020106 044514 ASCII ;OFF LINE TESTS USEING 54-14700 TEST CONNECTORS. FIRST TEST= 02°; 

3709 016736 042516 052040 051505 

3710 016744 051524 052440 042523 

3711 016752 047111 020107 032065 

3712 016760 030455 033464 030060 

3713 016766 052040 051505 020124 

3714 016774 047503 047116 041505 

3715 017002 047524 051522 020056 

3716 017010 044506 051522 020124 

3717 017016 042524 052123 020075 

3718 017024 022460 042 

3719 017027 124 051505 020124 ASCII ; TEST GROUP 1:2°'; 

3720 017034 051107 052517 020120 

3553 aes $3306) aaty 044514 ASCII ;OFF LINE TESTS USEING H3256 TEST CONNECTORS AND H317-M PANEL.% 
P s H ANEL .2°'; 

3723 017054 042516 052040 051505 

3724 017062 051524 052440 042523 

3725 017070 047111 020107 031510 

3726 017076 032462 066 042524 

3727 017104 052123 041440 047117 

3728 017112 042516 052103 051117 

3729 017120 020123 047101 020104 

3730 017126 031510 033461 046455 

3731 017134 050040 047101 046105 

3732 017142 022456 042 

3733 017145 106 044522 052123 ASCII ;FRIST TEST= 1002%''; 

3734 017152 052040 051505 036524 

3735 017160 030440 030060 021045 

3736 017166 042524 052123 043440 ASCII ; TEST GROUP 2:%"'; 

3737 017174 047522 050125 031040 

3738 $1 5505 eat ou74i9 042516 ASCII ;CONNECT/DISCONNECT TEST FOR BELL 103A MODEMS 200:% 
‘ : LL MO -FIRST TEST= 3Z°*: 

3740 017212 052103 Rogue? 051511 

3741 017220 047503 047116 041505 

3742 017226 020124 042524 052123 

3743 0172 3040 051117 041040 

3744 017242 046105 020114 030061 

3745 017250 040463 046440 042117 

3746 017256 046505 856367 044506 

3747 017264 051522 020124 042524 

3748 017272 052123 020075 030062 
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Fae GS 


WEUEWEW 
MPMOENN Of--—VMO—N———M —W 


Sooo OCOCOoOOCoO 
ya ha) 


042522 
052123 


=-320 O- SOo--— 


MVECTO: 


MREGAD: 


MTEST: 


MQM: 
MCRLF : 
MLINE: 


MLINEI: . 


MFATAL: 


MTRNDE : 


MPFAIL: 


MPF 1: 





-ASCII ;TEST GROUP 3:2°’; 


eASCII ;CONNECT/DISCONNECT TEST FOR BELL 202C MODEMS-FRIST TEST= 300%’; 


-ASCII 


ASCII 


ASCII 


: .ASCII 


:%''VECTOR ADDRESS-a; 


:Z'"CONTROL REGISTER ADDRESS-a; 


-%''2: 
yR"'SINGLE LINE CABLE TEST2''a; 


:Z''LINE NUMBER-@; 


sFATAL ERRORZ''CSTAT LSTAT@; 


3%°'TRANSITION DETECTED2°'CSTAT LSTAT@; 


3%’ POWER FAILURE@; 


s~CURRENT TEST WILL RESTART2''@; 


ZKMGA.P11 20-OCT-81 17:09 SEQ 0078 


017752 046136 100 MCONTL: .ASCII ;“La@; 
017755 045 aah 051127 S$SWREQ: .ASCII ;2°'SWR= a; 


017765 040 020040 ws SNEWIS: .ASCII ; NEW= @; 


S38 
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3805 017747 136 040126 MCONTV: .ASCII “Va; 

3806 : 

3810 017772 053505 020075 . 

3811 017777 045 ~=—(2 MBCD: ASCII ;2"; 

3812 020101 .=.+100 

3813 020102 “EVEN ; 

3814 020102 021045 047105 020104 MEPASS: .ASCII ;%"END PASS a; 

3815 020110 040520 051523 020040 

3816 020116 040040 

3817 020120 000000 TEMTAB: 0 

3818 020132 .=.410 

3819 

3820 020132 000000 0 

3856 sEMT DISPATCH TABLE 

3824 020134 014006 EMTTAB: ERRCS 

3825 020136 014024 ERRLS 

3826 020140 013414 LOOP 

3827 020142 013640 FREEZE 

3828 020144 014754 TYPER 

3829 020146 014662 SVOSP 

3830 020150 014320 OCTASN 

3831 020152 014722 RSO 

3832 020154 014512 BINASC 

3833 020156 014560 DIVI 

3834 020160 013702 ERR 

3835 020162 015036 INSTR 

3836 020164 013720 ERRT 

3837 020166 013742 ERRS 

3838 020170 013764 ERR 

3839 020172 012350 GETLIN 

3840 020174 012404 SETUPS 

3841 020176 01264 CKRNG 

3842 020200 012736 WAITR 

3843 020202 013024 CKTRN 

3844 020206 012774 WAITRR 

3845 020206 014406 CNTLU ;CALLED By EMT CNTLUU 

3846 070210 013402 CKINT ;CALLED BY EMT CKINTT 

3847 020212 001732 KBDINT :CALLED BY EMT KBDIN 

3848 020214 000000 EMILIM: 0 

3849 020216 020246 TSTLST: TSTTBO 

3850 020220 020450 TSTTB1 

3851 020222 020512 TSTTB2 

3852 020224 020520 TSTTB3 

3853 020226 000000 0 

3854 020230 000000 0 

3855 020232 000000 0 

3856 020234 000000 0 

3857 020236 00003 GRO: —-NO=1 

3858 020240 000007 N1-100~1 

3859 020242 000001 N2-200=1 

3860 020244 000000 N3-300-1 


-P11 20-0CT-8 
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020246 002154 TSTTBO: TO 
sess Su | 
020252 00220 11 
020254 bos ae 
0 9528 2244 T 
020 re 004000 ae 
020262 002306 T 
asso? B08 008 TIMES 
020266 002350 14 
020270 004000 TIMES 
020272 002412 15 
020274 004000 TIMES 
0 O$h8 002454 16 
34 004000 TIMES 
020302 002530 17 
20304 004000 TIMES 
020306 002604 T10 
020310 004000 TIMES 
020312 002674 T11 
020314 004000 TIMES 
020316 002764 T12 
020320 004000 TIMES 
020322 003054 113 
020324 004 TIMES 
020326 003144 714 
20330 004 TIMES 
020332 003234 115 
34 004000 TIMES 
020336 003322 T16 
20340 004000 TIMES 
020342 003410 117 
020344 004 TIMES 
0346 003476 T20 
020350 004 TIMES 
020352 003564 T21 
020354 004 TIMES 
020356 003636 T22 
020360 00040 TIMES 
020362 003720 T23 
020364 0004 TIMES 
20366 004116 T24 
020370 000400 TIMES 
020372 004274 T25 
020374 000200 TIMES 
020376 004444 726 
00 0002 TIMES 
020402 004636 T27 
020404 000200 TIMES 
020406 005030 130 
020410 000200 ies 
020412 005222 131 
020414 000200 TIMES 
020416 005414 T32 
020420 000200 TIMES 
020422 005610 133 
020424 000200 TIMES 


SEQ 0080 






917 0204626 006004 134 
318 04 Bye 00 TIMES 
320 990684 906600 Times 
SE Bes ties 
358 02044 doe sse 137 
$a5¢ 020444 004000 TIMES 
925 020446 000000 0 
3926 020450 007000 TSTTB1: 1100 
3927 020452 000001 1 
3928 020454 007036 7101 
3929 Osocz8 004000 TIMES 
930 020460 007214 7102 
3931 020462 004000 TIMES 
3932 0204 007372 103 
3933 020466 004000 TIMES 
3934 020470 007550 7104 
3935 029472 004000 TIMES 
sa39 020474 007726 T105 
3937 020476 004000 TIMES 
3938 020500 010102 7106 
3939 020502 004000 TIMES 
3940 020504 010256 7107 
3941 020506 004000 TIMES 
3942 020510 000000 0 
3943 020512 010432 TSTTB2: 1200 
3944 020514 000001 1 
3945 020516 000000 0 
3946 020520 011006 TSTTB3: 1300 
3947 020522 1 


Ww 
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S 
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CZKMGA.P11 20-0CT-81 17:09 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0081 
ANSFLG 016050 380i" so 2809* 2813*  2894% 2903 2926 2941* 2992 2993 36244 

ST 012164 768 998 
ANSTRR 01 $36 28174 
ANSTR1 012200 94 8024 
ANSTR2 012214 80 8054 
ANSTRS 012230 807 8104 
ANSTR4 012244 81 144 
BINASA 01452 352m 56 
BINASB 01454 3574 359 
BINASC 01451 33504 tp 
BINWRD= 014654 7784 =3312* 
BUSY = 000020 7834 861315 1119 1390 1416 1895 2872 
CHCK 015 3478 $300" 
CHRCNT 016032 3311* 350 3358* 36174 
CKINT 013402 50504 3846 
CKINTT= 104026 8464 2274 2338 2377 2436 2477 2521 2562 2602 2646 2711 2745 
CKRING= 104021 8414 2252 2413 
CKRNG 012640 29208 3841 
CKRNG1 012704 2929 29318 
CKRNG2 012730 2935 29384 
CKTRAN= 104023 8434 280 2344 2442 2483 2527 2568 2608 2652 2717 
CKTRN 013024 29598 843 
CKTRN1 013140 2977 29798 
CKTRN2 013172 2984 29 
CKTRNS 013232 2997 9994 
CKTRN4 013256 3003 OS# 
CLRMUX= 002000 ont 1369 1489 1534 1579 1624 1813 1842 1887 1954 1993 2032 2071 
CLRSCN= 004000 7904 1389 1415 1894 2871 
CNTLU 014406 33244 3845 
CNTLUU= 104025 8454 919 1033 2235 23 3253 
co = 000100 8044 1680 2121 2283 2287 2445 2448 2486 2490 2571 2575 2611 2616 
COF = 040000 7934 2779 2791 2802 281 
CONVER= 104010 8324 3313 
cs = 0 80 680 2121 2283 2287 2448 2490 2571 2611 
CSF__ = 020000 2782 2791 2805 2814 | 
CSTR1 002202 10594 
CSTR2 002244 10724 
CSTRS 002 10854 
CSTR4 002350 10 
CSTRS 002412 11144 
DATA1 013274 923* 925* 928* 930 2833* 2842 2962* 2972 30114 3551* 3553*  3555* 3557 
DATA2 013276 924% 925 926* 929% 2834% 2844 2963* 2981 3012 3552* 3553 3554* 3556s 
DATAS 013300 2964* 2 30134 
DATAS 013302 2965* 30144 
DIALM 016242 2899 36524 
DIGIT = 014656 779H# = 33353* = 3354 
DISPLA 015772 891* 35984 
DISPRE 000174 8654 9! 
DIVCNT 014634 3368* 35764 
DIvI 014560 33654 3833 
DIVIA 014604 3370 3377 
DIVIB 014652 3367 33814 

IVIC 014622 3369 3371 33734 

DIVIDH 014656 779 3365* 3366 3370 3372* 3374 3378* 33834 
DIVIDL 014654 778 3373*  3379* 33824 


SEQ 0082 
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21-OCT-81 05:36 
33844 


3372 


MACY11 30A(1052) 


M CONTRL 
-81 17:09 


20-0CT-8 


CZKMGAO_DM11-BA MODE 


CZKMGA.P11 


= 
NMNMNNOMON WE M 


SSORAOS KOs Non Sun 
- 
S=SmonK SUNIL K SIS. 
eH NUM ST TN OR. DODO O-— WOOD 
th eek eel eek ool el el ol ol ed ol ek oe oe OL OY a 


jsSbSS0253552— $5055 
- -— 
= — NUM TIN OR DWDHAO—— OOO 


* Te eeeeeexeexexexexeexeaeex 


1221 1239 1258 1276 


1203 


ADOT DO—DOTOVODR. OUMBDOOVeN KN 


eeeeeceeee 


1185 


1166 


* * coc ence 
Pee Soe me A era ene 
™ iW Or. hr. 


OCR. FAM O00 


O11" 
078 

167* 
434% 
8238* 
565* 
495 


* xx «xe = La “xe 
DONDOOAOR. OMMAOANOMNOCUM 
SOT OR. VACUA DR OM OR.NM OO 


Ct ee ek, eel sek cel oe el ol ool el ol el ol OS) 


cxce 
DNCUIM AH NA OM HK NKRARMMOeR 
RAM Oo 


7 xx * 
NORAORKCuU 
WWNOUTIANR — 


DOK VUUPIM ST TFMNOR. DARO—MANOOR.OOCY 
SE NINININIM MM OU 


5 ol ol ol ol sexes 
VW ANDMNOM—-AWMMNN 
NR MOWM DUAR. COONS 
DOK UNUPIM ST FTNOR. OAQAOS 


Ce el oe el el ol ol el ol cl ol el el el) 


95* 
71* 





He Or VN - Om 
MAMCUMMAM NM) = i) 


30214 


000200 
013362 


DMBLSR 015756 
DMBLVL 015752 
DMBVEC 015750 
DMYRTI 002146 
ERRORN= 104016 


DONE 
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ERRORS= 104015 oar" 30 305 $3 4 2366 463 2465 2504 2506 2547 2549 2588 2590 
2630 63 672 4 734 736 
ERRORT= 104014 8364 6 264 07 27 rer 370 2423 2425 2467 2469 2508 2510 
551 5 592 594 634 6 676 2678 2738 2740 
ERRS 013742 1604 837 
ERRT 013720 1414 3836 
ERR1 013264 $8S3. 91 2922* 2930 2966* 2978 30074 
ERR 013266 923* 93 $ob0e 2985 50084 
ERR 013270 2968* 998 0094 
ERR4 013272 2969* 004 30104 
ERTAB 014134 3126* 3143* 3163* 3180* 3197*  3216* 3240 32434 
ERTABO 014202 3235 2644 
ERTAB1 014210 3143 32674 
ERTAB2 014226 3163 32744 
ERTABS 014244 3180 32814 
TABS 014256 3197 32864 
ERTABS 014270 3216 32914 
EXTRAC= 104011 8334 3352 
FATEX 012254 2772 2795 28184 
FATRET 012266 2236* 2397* 2820 28214 
FREEZE 013640 31094 3827 
FREEZX 013674 3110 3114 31174 
ST 001244 9034 
GETLIN 012350 28484 3839 
GETLNS= 104017 8394 2238 2399 
0 020236 972 38574 
HILIM 015320 3440* 3494 35044 
ICOUNT 016006 3086*  3099*  3103* 36074 
NBUF 015324 3338 3445 3474 35064 
INIT] 002160 10474 
INSTBB 015104 34494 
INSTER 015176 944 955 977 3454 34664 3480 3482 3495 3497 3501 
INSTR 015036 4364 3835 
INSTRB 015076 34474 3448 3465 
INSTRC 015164 34624 3463 
INSTRD 015224 34794 3490 
INSTRG= 104013 8354 936 947 960 1939 2849 2854 3333 
INSTR1 015062 34434 3460 3468 
INSTR2 015204 3456 34724 
INSTR3 015264 3486 34944 
INTENA= 000100 7854 1059 1060 1063 1064 1148 1163 1184 1202 1220 1238 1257 1275 
1333 jit 1855 1901 2328 2696 2828 2893 2946 3077 3089 3101 3225 
002454 11284 
INTIA 002522 1130 11364 
INTIB 002526 1135 11384 
INT10 0032 12524 
INT10A 003316 1254 12644 
INT10B8 0033 1263 12654 
INT17 003322 12704 
INT11A 003404 1272 12824 
INT11B 003406 1281 12834 
INT12 003410 12884 
INT12A 003472 1290 13004 
INT12B 003474 1299 13014 
INT13 003476 13064 
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CZKMGA.P11 20-0CT-8 


3 


INTISA 0035 1208 1318 
INT138 003562 131 13194 
T2 002530 11444 
INT2A 002576 1146 11524 
INT 002602 1151 11544 
INT 002604 11604 
INT3A 002670 1162 11724 
INT38 002672 1171 11734 
INTS 0026 11794 
INT4A 002756 1182 11904 
INT4B 002762 1189 11924 
INTS 0027 11974 
INTSA 003 1200 12084 
INTSB 003052 1207 12104 
INT6 0030 12154 
INT6A 0031 1218 12264 
INT6B 003142 1225 12284 
INT? 003144 12334 
INT7A 003226 1236 12444 
INT7B 003232 1243 12464 
KBDIN = 104027 8474 3052 
KBDINT 001732 860 9984 3847 
KBDIN1 002014 1004 10114 
IN2 002046 1012 10194 
KBDINS 002110 102 10294 
KRET 002150 986* 1023 1028 10384 1935* 2237* 2398s 
LINANS 016046 44 2432 2475 2519 560 2642 2767 2858 2883 2927 2973 2975 2995 
INE 016042 1943 1953 1992 2031 2070 2110 2149 2188 36214 
LINENA= 7 984 1492 1500 1672 1680 1690 1718 1726 1736 1764 1772 1782 1823 
1848 1957 1965 2113 2121 2131 2152 2160 2170 2191 2199 2209 2283 
2287 2347 2350 2445 2448 2486 2490 2530 2533 2571 2575 2611 2616 
2655 2658 2720 2723 2881 2884 
LINFLG 016040 987* 36204 
LINORG 016044 $235, 2434 2517 2600 2644 2708 2765 2853 2879 2933 2979 2982 3001 
LINT? 003564 13254 
LINT1A 003604 13294 1335 1338 
LINTIB 003622 1332 13344 
LINT2 003636 13454 1356 
LINT2A 00 13504 1359 
LINT2B 0037 1353 13554 
LOGICA 013334 30294 
LOLIM 015316 439x 3496 35034 
LOOP 013414 0634 3826 
LOOPER 013544 30884 3104 
LOOPL 013630 3083 31034 
LOOPS 013516 3079 30824 
LOOPX 013560 3073 3081 3085 3087 30914 3112 
LVL _ = 000004 11754 861193 12114 1229 12467 1248 12664 12844 1302#  1320# 
MAINT = 001000 78 1085 1086 1089 1090 1372 1418 1421 1454 1846 
MBCD 017777 3309 3320 3332 38114 
MCONTC 017744 1006 38044 
MCONTL 01775 1022 38064 
MCONTV 01774 1014 38054 
MCRLF 017514 991 1945 2860 3473 37754 


CZKMGAO_DM11-BA MODEF. C 
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Seer 
NMRNOoONoO 


SSS TIUEEEPEEEPEE PEPE ROS 
WAG 
— NAN = & EWN 
VM = NOW NWA NAS NS 
NNYVIPMIN—NOANOA LOSnwnoen 


ooooo0oo 
NNNAANNNO 
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Ro 


Qooooc[eo 
SNORE RROE wn 


R 


no 


Seee 


= 
SOUMUMNE SW 


NWS — 


007132 
007144 
007160 
007212 
007214 
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WM—BWnonwo ~m 
22 2 22 


> 
RVRBR 
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36864 


“ 


19724 
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MUX12A 007232 19934 
MUX1 $e 007262 19984 013 
MUX12C 007310 2003 00 
MUX12D Bo ease 2007 201 20114 
MUX12E 007 20154 
MUX12F 007370 2022 20244 
MUX 00737 20294 
MUX13A 007410 20324 
MUX138 00744 20374 2052 
MUX13C 007466 2042 20454 
130 007500 2046 2049 20504 

MUX13E 007514 20544 
MUX13F 007546 2061 20634 
MUX14 007550 20684 
MUX14A 0075 20714 
MUX14B 007616 20764 091 
MUX14C 007 2081 20844 
MUX14D 007656 2085 2088 20894 
MUX14E 007672 20934 
MUX14F 007724 2100 21024 
MUX15 007726 21084 
MUX1SA 007744 21114 
MUX15B 007766 21154 2130 
MUX15C 010014 2120 21234 
MUX15D 010026 2124 2127 21284 
MUXI5E 010044 21324 
MUX15F 010100 2139 21414 
MUX16 010102 21474 
MUX16A 010120 21504 

x1 010142 21544 169 
MUX16C 010170 2159 21624 
MUX16D 010202 2163 2166 21674 
MUX16E 010220 21714 
MUX16F 010254 2178 21804 
MUX17 010256 21864 
MUX17A 010274 21894 
MUX17B 010316 21934 2208 
MUX17C 010344 2198 22014 
MUX17D 010356 2202 2205 22064 
MUXI7E 010374 22104 
MUX17F 010430 2217 22194 
MUX2 004636 15304 
MUX2A 004656 15344 1566 1569 
MUX2B 004706 15394 1554 
MUX2C 0047 1544 15474 
MUX2D 004746 1548 551 15524 
MUX2ZE 00476 15564 
MUX2F 005014 1563 15654 

x3 005030 15754 
MUX3A 005050 1579# 1611 1614 
MUX38 005100 15844 1599 
MUX3C 005126 1589 15924 
MUX3D 005140 1593 1596 15974 
MUX3SE 005154 16014 
MUX3F 005206 1608 16104 
MUX4 005222 16204 
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MUX4A 005242 16244 1656 1659 
MUX4B tes 16294 1644 
MUX4C 005320 1634 16374 
MUX4D 005332 1638 1641 16424 
MUX4E 005346 caf 
MUX4F 005400 165 16554 
MUXS 005414 16664 
MUXSA 005434 16704 1701 1705 
MUXSB 005456 16744 1689 
MUXSC 005504 1679 16824 
MUXSD 005516 1683 1686 16874 
MUXSE 005534 16914 
MUXSF 005570 1698 17004 
MUX6 005610 17124 
MUX6A 005630 17164 1747 1751 
MUX6B 005652 17204 1735 
MUX6C 005 1725 17284 
MUX6D 005712 1729 1732 17334 
MUX6E 005730 17374 
MUX6F 0057 1744 17464 
MUX7 006 17584 
MUX7A 006024 17624 1793 1797 
MUX7B 17664 1781 
MUX7C 006074 1771 17744 
0061 1775 1778 17794 
x 006124 17834 
MUX7F 006160 1790 17924 
MUX8 0062 18044 
MUXBA 006216 18074 1810 
MUX8B 006244 18134 1821 1829 
MUX8C 006252 18144 1833 
X8D 006276 1818 18224 
MUXBE 006324 1826 18304 
MVECTO 017422 937 37644 
= 000040 38634 38654 38674 8694 38714 38734 38754 38774 38794 38814 38834 38854 
38894 38914 38934 38954 38974 8994 39014 39034 39054 39074 39094 39114 
39154 39174 39194 39214 3923# 39254 3928 32 934 
fall = 11 39284 39304 39324 9344 39364 9384 39404 39424 
M16 016613 1046 6934 
= 000300 10444 19344 22284 23894 
NXTTS 013304 2868* 914 2921* 2939 2970* 3006 30154 
= 00004 10444 10454 1058 10594 1071 10724 1084 10854 1097 10984 1113 11144 
11284 1143 11444 1159 11604 1178 11794 1193 1196 11974 1211 1214 
1229 1232 12334 1267 1251 12524 1266 1269 Th od 1284 1287 12884 
1305 13064 1320 1324 13254 1344 13454 1368 13694 1410 14114 1448 
1484 14854 1529 15304 1574 15754 1619 16204 1665 16664 #1711 17124 
17584 1803 18044 1841 18424 1885 18864 3857 3863 
N1 = 000110 19344 19354 1950 19514 1989 19904 2028 20294 2067 20684 2107 21084 
21474 2185 sis 3858 3928 
N2 = 000202 SSace 22294 237 23744 3859 
OCTASC= 104006 *Bson 5BSe 388632423329 
OCTASN 014320 33064 3830 
othe $160 337g8 3353 2786 2790 2895 2905 2932 2942 2999 3625 
* & * a * cs 6254 
ORGTR 012072 2766 27764 
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wooown—- o- 
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SOWMON —% 
2» & 

NON So 
WN = 


ee eee eee 
NWOAN 3 NUINI090009000 0 NNN 


Ni 
22 


SEEeRES 


NM 
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Rr —INPFVN 


Co © 09 0 0d Go Cn Co Co Oo Co: 


gu 


Why Ww 


2173 
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2435 
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1246 
1660 
2219 
SCOPEF= 104003 8274 
1640 
1919 
SECRX = 000020 8024 
SECRXF= 010000 7914 
SECTX = 000010 8014 
2520 
SETUP = 104020 8404 
SETUPB 012622 2904 
SETUPS 012404 28654 
SETUP1 012436 28724 
SETUP2 012452 28794 
SETUP4 012564 2896 
NGLE= 1 7614 
2107 
SINTFL 002152 1000* 
N 014510 317 
ST = 000200 11754 
STACK 001100 8774 
START 001100 869 
STARTN 001546 921 
STARTO 001254 901 
START1 001316 914 
STEP = 400 7874 
1642 
2206 
STORE 015322 3441* 
STRLIN 007 19354 
STRLNA 007020 193 
STRTOQA 001640 975 
ST103A 010432 22298 
$T1038 010474 2237 
ST202A 011006 23904 
$T202B 011050 2398 
SUSWR 001122 8834 
$v05 014670 33924 
SVOSP 014662 33884 
wR 015770 886 
3248 
SWREG 000176 8664 
SWRTB 014312 33014 
SWO6 = 000100 7544 
SwO8 = 000400 7534 
SWwO9 = 001000 7528 
SWw10 = 002000 7514 
S&é11 = 004000 7504 
SW12 = 010000 7494 
SW13 = 020000 7484 
SW14 = 040000 7478 
SW15 = 100000 7464 
T = 000014 11754 
TEMTAB 020120 3351 
TIFLG 016060 906 
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1319 


NLSONnN—OoO f 


1619 


12474 


1395 
1808 


2378 
2746 


1029 
2233 


1247# 


SEQ 0089 
1480 1525 1570 1615 
2063 2102 2141 2180 
1550 1565 1595 1610 
1828 1865 1873 1911 


1950 1989 2028 2067 


13204 


1464 1507 


1 1597 
2050 2089 2 


52 
28 2167 


3084 3111 3113 3226 


13204 
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TIMES = 004000 
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ww 
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NNN LSU UO 
ry w 


030 
300 
000002 


TYPECL 015024 
TYPER 014754 
TYPERA 014764 
TYPER1 015002 
TYPER2 015016 
0 154 


7036 
7102 007214 
ys 007372 


T103A_ 010476 
T103A1 010504 

038 010510 
710381 010520 
710382 010524 
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3866 


3077* 


3324« 


2004 
2490 


3091* 


2113 
2530 


3092 


1944 
3326 


3225* 


33444 


36054 


2321 
3443 


3874 
8874 
900 

39134 

3929 

3255* 


3450* 


2272 
2575 


2374 
3466 


SEQ 0090 
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T1I03€. 010530 2256 704 
710301 010574 2297 034 
T103D2 010600 $809 054 
T10303 010604 2300 Sih 
T103D4 010610 2301 3094 
TI03E 010614 2302 23214 
TIO3SEN 010770 2363 23744 
TIO3ES 010654 2326 25304 
T103E1 010750 2358 23644 
TI03E2 010754 2360 23664 
T103E3 010760 2361 23684 
T103E4 010764 $306 2370# 
T104 007550 20674 3934 
T105 007726 21074 3936 
7106 010102 21464 3938 
7107 010256 21854 3940 
T11 002674 11784 3879 
T12 002764 11964 3881 
T13 003054 12144 3883 
T14 003144 12324 3885 
T15 0032 12514 3887 
T16 003322 12694 3889 
117 0034 12874 3891 
T2 002244 10714 3865 
T20 003476 13054 3893 
200 010432 22284 3943 
201 010770 23734 
T202A 011052 2397 24014 
T202A1 011060 2404 24054 
T2028 011064 2403 24134 
20281 011074 2419 24234 
T202B2 011100 2421 24254 
202C 011104 417 2432H 
T202D. 011120 24344 
T202D1 011164 2458 24634 
T202D2 011170 2459 24654 
T202D5 011174 2460 24674 
T202D4 011200 2461 24694 
202E 011204 2462 24754 
T202E1 011250 2499 25044 
T202E2 011254 2500 25064 
T202E3 011260 2501 25084 
T202E4 011264 2502 25104 
202F_ 011270 2503 25174 
T202F2 011350 S226 25478 
T202F3 011354 254 25494 
T202F4 011360 2544 25514 
T202F5 011364 2545 25534 
T202G. 011370 2546 25604 
T202G1 011434 2583 25884 
T202G2 011440 2584 25904 
T202G3 011444 2585 2592e 
20264 011450 2586 25944 
T202H_ 011454 2587 26004 
T202H2 011520 2625 26304 
T202H3 011524 2626 26324 
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CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0092 
1018 
2437 2478 2522 2563 2603 2647 2712 
8274 8284 8294 8304 8314 8324 83 8344 8354 8364 
8404 8414 842# 8434 8444 845 8464 8474 8484 8744 
2352 2355 2452 2455 2536 539 2578 2581 2661 2664 
“336 $333 455 2539 2578 
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19274 1934# 
829 830 


CZKMGA.P11 


INTS 10404 
MUXS1 10404 
MUXS2 10404 
NOINT 10404 
™ 8754 
3891 
3921 
TS 8734 
1269 
1803 
TSS 8734 
- ABS. 020524 


ERRORS DETECTED: 


20-OCT-81 17: 
8744 10448 
825 826 
840 841 
1248 1266 
1481 1526 
1661 1707 
1175 1193 
3863 3865 
3893 3895 
3923 3928 
1044 1058 
1287 1305 
841 1885 

000 
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CZKMGA , CZKMGA/CRF /SOL/NL : TOC=CZKMGA 
RUN-TIME: 29 55 8 SECONDS 
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SEQ 0094 


